Выборка записей из БД по дате, не учитывая время - Visual Basic .NET (64198)

Public Class Form1
    Private dv As DataView
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        ComboBox1.Items.Add("test")
        ComboBox1.SelectedItem = "test"
        SqlCom = New OleDb.OleDbCommand("SELECT * FROM " & tablica & " WHERE " & a2 & " LIKE '%" & ComboBox1.SelectedItem & "%'", Con) ' Указываем строку запроса и привязываем к соединению
        Con.Open() ' Открываем соединение
        DA = New OleDb.OleDbDataAdapter(SqlCom) 'Через адаптер получаем результаты запроса
        DA.Fill(DT) ' Заполняем таблицу результатми
        dv = DT.AsDataView
        Me.DataGridView1.DataSource = dv ' Привязываем Грид к источнику данных
        DataGridView1.Columns(0).ValueType = Type.GetType("System.String")
        Con.Close() ' Закрываем соединение
    End Sub
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim dat As String = DateTimePicker1.Value.ToShortDateString
        Me.DataGridView1.DataSource = Nothing
        Dim sd = From dd As DataRow In DT Where dd!Дата.ToShortDateString = dat
        If sd.AsDataView.Count = 0 Then Exit Sub
        Me.DataGridView1.DataSource = sd.AsDataView
    End Sub
End Class