PARAMETERS l1 Long, l2 Long, s1 Text ( 255 );
SELECT НазначенияСотрудникам.Код, НазначенияСотрудникам.ТабНомер, НазначенияСотрудникам.Документ, НазначенияСотрудникам.[Вид работы]
FROM НазначенияСотрудникам
WHERE (((НазначенияСотрудникам.ТабНомер)=[l1]) AND ((НазначенияСотрудникам.Документ)=[l2]) AND ((НазначенияСотрудникам.[Вид работы])=[s1]));

Private Sub Кнопка0_Click()
On Error GoTo er1
Dim bd As Database
Dim rs As Recordset
Dim qs As QueryDef
Set bd = CurrentDb()
Set qs = bd.QueryDefs("Запрос1")
qs![l1] = 620             ' из поля формы Me.блабла
qs![l2] = 18297           ' из поля формы
qs![s1] = "Проверка"      ' из поля формы
Set rs = qs.OpenRecordset
'
'
' действия....
'
'
rs.Close
er1:
MsgBox "Ошибка!"
End Sub