Пытаюсь сделать запрос на выборку, но чет не получается

Private Sub Кнопка9_Click()
Dim strSQL As String
Dim Тип As String
Dim Номер As String
Dim Дата
Тип = Me.ПТип
If Not IsNull(Me.ПНомер) Then
Номер = " AND РеестрНПА.НомерНПА=""" & Me.ПНомер & """"
Else
Номер = ""
End If

If Not IsNull(Me.ПДата) Then
Дата = " AND РеестрНПА.ДатаНПА=#" & Me.ПДата & "#"
Else
Дата = ""
End If

If IsNull(Me.ПДата) And IsNull(Me.ПНомер) Then
MsgBox "Нет параметров поиска"
Exit Sub
Else
strSQL = "SELECT * FROM РеестрНПА WHERE РеестрНПА.ТипНПА=""" & Тип & """" & Номер & Дата
CurrentDb.Execute strSQL
End If

End Sub

Поле "Птип" заполнено всегда о одно из полей ПДата или ПНомер может быть не заполнено.
Выдает ошибку: Зарезервированная ошибка (-3201)

http://www.sql.ru/forum/1114824/pomogite-podpravit-zapros