Помогите, пожалуйста разобраться!!!!!!


Есть поле со списком [Подрядчик] с данными:
SELECT Подрядчики.КодП, Подрядчики.[Наименование подрядчика] FROM Подрядчики;
Хочется фильтр на любую часть названия подрядчика

Private Sub Подрядчик_KeyPress(KeyAscii As Integer)
Dim tblT As Variant, dbT As Variant
Dim fldKod As Variant, fldName As Variant
Dim strPoisk As String
Dim strRS As String
Dim ctlSpisok As Variant
Set dbT = CurrentDb()
Set tblT = dbT.TableDefs("Подрядчики")
Set fldKod = tblT.Fields("КодП")
Set fldName = tblT.Fields("Наименование подрядчика")
Set ctlSpisok = Me![Подрядчик]

strPoisk = Chr(KeyAscii) вот на это говорят Ошибка 5.Invalid procedure call or argument
Почему?

If Not IsNull(strPoisk) Then
strRS = "SELECT " & tblT.Name & "." & fldKod.Name & ", " & tblT.Name & "." & fldName.Name & " " _
& "FROM " & tblT.Name & " " _
& "WHERE ((( " & tblT.Name & "." & fldName.Name & ") Like '*" & strPoisk & "*'));"

ctlSpisok.RowSource = strRS
SendKeys "%{DOWN}", True
End If

End Sub

Передается код нескольких буквенных клавиш (как образец для поиска в поле наименование подрядчика)

Я так и пыталась сначала, но если вставляю в запрос поле со списком "Подрядчик" то запрос просто игнорируется и не выдает никакай ошибки! Я даже не могу проследить что ни так
If Not IsNull(ctlSpisok) Then
strRS = "SELECT " & tblT.Name & "." & fldKod.Name & ", " & tblT.Name & "." & fldName.Name & " " _
& "FROM " & tblT.Name & " " _
& "WHERE ((( " & tblT.Name & "." & fldName.Name & ") Like '*" & ctlSpisok & "*'));"

Вот таким образом