.findfirst syntax error

I was hoping to loop around rstcodestoprocess grabbing the [mvris code] each time and then updating a field in the bestmatch table via rstbestmatch.

However the findfirst wont work. at the moment it returns (strcriteria) "mvris code=1GIAO" I have tried "[mvris code]=1GIAO" that fails too.

help would be appreciated

Private Sub BtnUpdateBestmatch_Click()

Dim db As Database
Dim rstBestMatch As DAO.Recordset
Dim RstCodestoProcess As DAO.Recordset
Dim strCriteria As String


Set db = CurrentDb
Set rstBestMatch = db.OpenRecordset("BestMatch", dbOpenSnapshot)
Set RstCodestoProcess = db.OpenRecordset("QryTotalCWCodestoProcess", dbOpenSnapshot)
With RstCodestoProcess

Do While Not .EOF
.MoveFirst
    strCriteria = "mvris code=" & RstCodestoProcess![MVRIS CODE]
    
    With rstBestMatch
    
        .FindFirst (strCriteria)
        .Edit
        .Fields("ForDeletionafterDataUpdate").Value = True
        .Update
    End With


Loop


End With


End Sub

Select allOpen in new window