Istruzioni fields e findfirst

Buongiorno.

Da buon novellino mi sono impantanato sul facile.
Però, dopo aver cercato variamente sulle altre pagine e su altri siti, non ho trovato risposta al mio problema. Arrivo ad esporvelo.

Ho una tabella, denominata "Tabella1" (un esempio creato in fretta per capire la logica delle istruzioni). Ha 3 campi:
RIF (indice e chiave primaria)
NOME (Testo)
COGNOME (Testo)

Ho inserito 3 record, e di fatto la numerazione di RIF riporta 1,2,3.
Poi, ho aggiunto un modulo con il seguente codice:

Sub test()

Dim rs As DAO.Recordset
Dim db As Database
Dim fld As Field
'
Set db = CurrentDb
Set rs = db.OpenRecordset("Tabella1", dbOpenDynaset)
rs.MoveLast
Debug.Print rs.RecordCount
For Each fld In rs.Fields
    Debug.Print fld.Value
Next
ld = 2
sCrit = "[RIF] = " & ld
Debug.Print sCrit
With rs
 .FindFirst (sCrit)
    If Not .NoMatch Then
         MsgBox "OK"
    End If
End With

rs.Close
Set rs = Nothing
Set db = Nothing
End Sub

Quello che accade mi stupisce: il ciclo for...each elenca solo i campi del 1° record; il recordcount mi da 3 (correttamente); .findfirst non trova un tubo (ma RIF=2 dovrebbe essere il 2° record).

Vorrei capire dove sbaglio e/o qual è il problema.

Ringrazio anticipatamente chi avrà la pazienza di rispondermi.

ma forse è meglio che spieghi "tu" cosa intendi fare, anche perché se il codice lo hai preso da qualche parte può darsi che dei valori non si adattino al tuo caso cosi come è scritta oppure che il codice non vada bene per ciò che ti serve (ma per questo bisogna che ce lo dici)

Forse stai facendo un po' di confusione tra "campi" e "record" ...

Commetti un sacco di erorri concettuali...!

Prima di tutto apri un RS e ti SPOSTI ALL'ULTIMO RECORD..!!!
Ne consegue che il Ciclo sulla Collection Fields, agisce SOLO sul Record puntato, visto che non lo muovi, ed è l'ultimo non il 1° di certo...!

Poi ricordandoti che sei sempre all'ultimo, il FINDFIRST non troverà NULLA se quello che cerchi è prima...!!!
Prima del [.FindFirst] fai un MoveFirst del Rs di partenza, in quanto avendo spostato il Bookmark alla fine è normale che se hai superato il tuo dato non venga trovato...!

Sub test()

Dim rs As DAO.Recordset
Dim db As Database
Dim fld As Field
'
Set db = CurrentDb
Set rs = db.OpenRecordset("Tabella1", dbOpenDynaset)
rs.MoveLast
Debug.Print rs.RecordCount
rs.MoveFirst
Do Until rs.Eof
    For Each fld In rs.Fields
       Debug.Print fld.Value
    Next
    rs.MoveNext
Loop
Rs.MoveFirst
ld = 2
sCrit = "[RIF] = " & ld
Debug.Print sCrit
With rs
 .FindFirst (sCrit)
    If Not .NoMatch Then
         MsgBox "OK"
    End If
End With

rs.Close
Set rs = Nothing
Set db = Nothing
End Sub

Ringrazio tutti.
Prendo atto che devo approfondire la mia conoscenza in merito.
tra l'altro sottolineo che gli errori principali si manifestavano nel .findfirst con un recordset aperto con opzione 'dbOpenTable'; cercherò di analizzare il materiale in rete prima di disturbarvi ancora. Nel caso, aprirò un altro 3D.