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

Формулировка задачи:

Привет всем. Подскажите, как сделать выборку из базы данных по дате если в колонке дата с временем.

SqlCom = New OleDb.OleDbCommand("SELECT * FROM [" & tablica & "] WHERE [" & a2 & "] LIKE '%" & ComboBox1.SelectedItem & "%' AND [" & дата_и_время & "] = " & AccDate(DateTimePicker1.Value) & "", Con)

Решение задачи: «Выборка записей из БД по дате, не учитывая время»

textual
                            Листинг программы 
                        

                            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
                        