Erreur 424

Dim db As Database
Dim Dossier As String
Dim NomPatient As String
Dim PrenomPatient As String
Dim Jma As Date
Dim FichierBrut As String
Dim q As QueryDef, d As Recordset
Dim Resultat As String
Dim Autres As String
Dim i As Integer
Dim j As Integer
Dim TestComp As Integer



rrr = MsgBox("Début", vbOKOnly)

Set db = CurrentDb()
Set q = db.QueryDefs("FB_Index Requête")
Set d = q.OpenRecordset()

d.MoveFirst

i = 0

    Do Until i = 10
    
        If (Mid$(d![FichierBrut], 3, 1) = "2") Then
          Resultat = (d![NomPatient] & "  " & d![PrenomPatient])
          i = i + 1
        Else
          Autres = (d![NomPatient] & "  " & d![PrenomPatient])
          
        TestComp = StrComp(Resultat, Autres, CompareMethod.Text)
        If (TestComp = 0) Then
        
        
        Else
        
        End If
        
        End If

    
        d.MoveNext
    
    Loop

End Function