Пытаюсь найти запись, соответсвующую критерию, берущимся из формы, в рекордсете (не таблица) и перейти на данную запись. По какой-то причине метод Find не срабатывает и одна и та же запись таблицы постоянно остается текущей. По мнению знатоков, что я делаю неправильно?

Dim dbs As Database, rstJobs_today As DAO.Recordset, strFind, strSQL As String

strSQL = "SELECT j.job_num, j.crew_num FROM Jobs_today as j;"

Set dbs = CurrentDb
Set rstJobs_today = dbs.OpenRecordset(strSQL, dbOpenDynaset)

If IsNull(Me!Job_num) Then
MsgBox "Please enter Job #", vbExclamation, "No value entered"
Else
'Seek for job#
strFind = Me!Job_num
rstJobs_today.FindFirst "Job_num = '" & strFind & "'"
If rstJobs_today.EOF Then
'Add record to table Jobs_today with Job_num and Crew_num
'from form Crews
With rstJobs_today
.AddNew
!Job_num = Me!Job_num
!CREW_NUM = Me!CREW_NUM
.Update
End With
Else
rstJobs_today.Edit
rstJobs_today!CREW_NUM = Me!CREW_NUM
rstJobs_today.Update
End If
End If

rstJobs_today.Close
dbs.Close

Спасибо большое!!!

Работает, работает :-)) Огромное спасибо!