retrieve data from table when we select a date

dim connection as new sqlconnection=""
dim selectme as string="SELECT * FROM table WHERE myDate ='"& datetimepicker1.text &"'" 
dim cmdme as new sqlcommand(selectme,connection)
Dim sqladpt As New OleDbDataAdapter
        Dim tbl As New DataTable
        With cmdme
            .CommandText = selectme
            .Connection = connection
        End With
        With sqladpt
            .SelectCommand = cmdme
            .Fill(tbl)
        End With
        DataGridView1.Rows.Clear()
        For i = 0 To tbl.Rows.Count - 1
            With DataGridView1
                .Rows.Add(tbl.Rows(i)("fieldname"), tbl.Rows(i)("fieldname"))
            End With
        Next
        connection.Close()