Private Sub Подрядчик_KeyPress(Cancel 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![подрядчик]
   If Not IsNull(strPoisk) Then
       strRS = "SELECT   " & tblT.Name & "." & fldKod.Name & ",  " & tblT.Name & ".[" & fldName.Name & "] " _
       & "FROM " & tblT.Name & " " _
       & "WHERE ((( " & tblT.Name & ".[" & fldName.Name & "]) Like '*" & Me![подрядчик].Text & "*'));"

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

End Sub