Поиск по recordset

key = wsTeacherRs![teacherNumber]
        dbTeacherRs.FindFirst key

Private Function teacherHandler(fname As String)
    Dim wsTeacherRs As Recordset
    Dim dbTeacherRs As Recordset
    Dim db As Database
    Dim wsRecordCount As Long
    Dim dbRecordCount As Long
    Dim m As Long
    Set wsTeacherRs = getTableData("teachers", fname)
    Set db = CurrentDb
    Set dbTeacherRs = db.OpenRecordset("teachers", dbOpenTable)
    dbTeacherRs.MoveLast
    wsTeacherRs.MoveLast
    wsRecordCount = wsTeacherRs.RecordCount
    dbRecordCounr = dbTeacherRs.RecordCount
    dbTeacherRs.MoveFirst
    wsTeacherRs.MoveFirst
 
    If wsRecordCount = 0 Then
        m = MsgBox("", vbCritical, "")
        GoTo teacherHandlerEnd
    End If
    If wsRecordCount <> dbRecordCoutn Then
    Else
    End If
    Dim key As String
    Dim str As String
    Do Until wsTeacherRs.EOF
        key = wsTeacherRs![teacherNumber]
        dbTeacherRs.FindFirst key
        If dbTeacherRs.NoMatch Then
            'no match in db. New record
            GoTo nextCyleStep
        End If
        
        If (wsTeacherRs![secondName]) = (dbTeacherRs![secondName]) Or (wsTeacherRs![patronymicName]) = (dbTeacherRs![patronymicName]) Or (wsTeacherRs![firstName]) = (dbTeacherRs![firstName]) Then
            GoTo nextCyleStep
        Else
            If (wsTeacherRs![secondName]) = (dbTeacherRs![secondName]) Then
                If (wsTeacherRs![patronymicName]) = (dbTeacherRs![patronymicName]) Then
                Else
                End If
            Else
                wsTeacherRs.Edit
                wsTeacherRs![secondName] = dbTeachersRs![secondName]
            End If
        End If
nextCyleStep:
        wsTeacherRs.MoveNext
    Loop
teacherHandlerEnd:
End Function
 
Function getTableData(Optional strTableName As Variant, Optional strPathDB As Variant) As Recordset
    On Error GoTo Err_getTableData
    Dim db As Database
    Dim rs As Recordset
    Dim lngRecordCount As Long
    Dim fldField As Field
    Dim m As Long
    If IsMissing(strPathDB) Then
    Else
        Set db = OpenDatabase(strPathDB)
    End If
 
If IsMissing(strTableName) Then
Else
    Set rs = db.OpenRecordset(strTableName, dbOpenTable)
    If rs.RecordCount <> 0 Then
        rs.MoveLast
        lngRecordCount = rs.RecordCount
        rs.MoveFirst
        Set getTableData = rs
    End If
End If
 
    'rs.Close
    'db.Close
Exit_Cycle01_9:
    Exit Function
Err_getTableData:
    MsgBox Err.Description
    Resume Exit_Cycle01_9
End Function

key = "[teachers].[teacherNumber] = '" & wsTeacherRs![teacherNumber] & "'"

Set dbTeacherRs = db.OpenRecordset("teachers", dbOpenDynaset)