Подскажите чайнику, почему в данном коде в строке Set rst = dbs.OpenRecordset(strSQL, dbOpenDynaset) выдается Type Mismatch? Чего с этим делать? Спасибо

Private Sub Addr_AfterUpdate()
Dim dbs As Database, rst As Recordset, strSQL As String, strOne As String
Set dbs = CurrentDb
strOne = Me![Addr]
strSQL = "SELECT Job_num, Addr FROM Jobs WHERE (Addr = '" & strOne & "');"
Set rst = dbs.OpenRecordset(strSQL, dbOpenDynaset)

Do Until rst.EOF
Debug.Print rst!Job_num, rst!Addr
rst.MoveNext
Loop

rst.Close
dbs.Close

End Sub

Спасибо большое, что ткнули носом :-)
Чайники faq не читают..