Hallo Netghost,
eine solche von Dir gewünschte Funktion gibt es nicht.
Du könntest höchstens ein Konstrukt bauen, in dem Du für
jedes Feld von rs1 versuchst den Wert des entsprechenden
Feldes in rs2 zu ermitteln und mögliche Fehler entsprechend abfängst
z.B.
Dim test as Variant
For Each flditem in rs1.Fields
On Error resume next
test=rs2(flditem.name)
if errors.count>0 then
'Fehlerbehandlung
End If
Next
Gruß Ralf