Display all records between those dates in datagridview

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        provider = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source="
        dataFile = "E:\cessuser.accdb"
        connString = provider & dataFile
        Dim con = New OleDbConnection
        con.ConnectionString = connString

        con.Open()




        Dim ds = New DataSet
        Dim tables = ds.Tables
        Dim da = New OleDbDataAdapter("Select * from [user] where [Submittedon] between '" & DateTimePicker1.Text & "' And '" & DateTimePicker2.Text & "'", con)

        da.Fill(ds, "user")
        Dim view = source.DataSource
        UserDataGridView.DataSource = view
    End Sub
End Class