Не работает FindFirst

Private Sub кнИзвлечьМаркуАвто_Click()
    Dim Модели As DAO.Recordset
    Dim Марки As DAO.Recordset
    Dim Марка As String
    
    Set Модели = CurrentDb.OpenRecordset("МодельАвто")
    Set Марки = CurrentDb.OpenRecordset("Марка_Авто")
    Do While Not Модели.EOF
        If IsNull(Модели.Fields("Марка")) Then
            ' Первое слово в названии модели - марка авто
            ' Марка авто может отделяться пробелом или дефисом от модели
            Марка = Модели.Fields("Модель")
            Марка = Replace(Марка, "-", " ")
            Марка = ExpandStr(Марка, " ", 1)
            стрПоиска = "Марка = '" & Марка & "'"
            Марки.FindFirst стрПоиска ' Ищем марку авто
            If Not Марки.NoMatch Then
                Марки.AddNew
                Марки.Fields("Марка") = Марка
                Марки.Update
            End If
            Модели.Fields("Марка") = Марки.Fields("Код")
            Модели.Update
        End If
        Модели.MoveNext
    Loop
End Sub

Set Модели = CurrentDb.OpenRecordset("МодельАвто", dbOpenDynaset)
Set Марки = CurrentDb.OpenRecordset("Марка_Авто", dbOpenDynaset)