Public Sub Sol03()

Dim db As DAO.Database
Dim T1 As DAO.Recordset
Dim T2 As DAO.Recordset

Set db = DBEngine(0)(0)
Set T1 = db.OpenRecordset("Tab1", dbOpenDynaset)
T1.MoveFirst
Do Until T1.EOF
    Set T2 = db.OpenRecordset("SELECT * FROM Tab2 WHERE NumeroOrdine=" & T1.Fields("NumeroOrdine").Value, dbOpenDynaset)
    ' qui non sono sicuro se devi forzare mettendo prima un MoveFirst e un MoveLetz
    ' talvolta i RecordSet se non forzati contano da dove vogliono loro
    If T2.RecordCount = 0 Then
    MsgBox " Non trovo questo ordine " & T1.Fields("NumeroOrdine").Value & "!"
    End If
    T2.Close
    Set T2 = Nothing
T1.MoveNext
Loop

T1.Close
db.Close
Set T1 = Nothing
Set db = Nothing

End Sub