Запрос из MDB базы по переменной с форматом даты - Visual Basic .NET

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

Помогите пожалуйста правильно построить запрос из базы с переменной в виде даты из DateTimePicker.

                    Листинг программы
                
    Private Sub DateTimePicker1_TextChanged(sender As Object, e As EventArgs) Handles DateTimePicker1.TextChanged
        Dim search As Date = CDate(DateTimePicker1.Text)
        Me.DataTable1TableAdapter.SPRAVKA(Me.BASEDataSet.DataTable1, search)
    End Sub

собственно сам запрос:

                    Листинг программы
                
SELECT        PATIENT.Код, PATIENT.Faml, PRIEM.pricina, 
                         PRIEM.Data_priema
FROM            (PATIENT INNER JOIN
                         PRIEM ON PATIENT.Код = PRIEM.ID)
WHERE        (PRIEM.pricina = 'Справка') AND (PRIEM.Data_priema = #10/19/2016#)

как мне в место обозначенной даты использовать переменную search. По дате все работает на переменной ошибка:

Ошибка BC30057 Слишком много аргументов для "Public Overridable Overloads Function SPRAVKA(dataTable As BASEDataSet.DataTable1DataTable) As Integer". WindowsApplication9

Решение задачи: «Запрос из MDB базы по переменной с форматом даты»

textual
                            Листинг программы 
                        
Module Module1
    Public search As Date
End Module