Subito dopo l'istruzione

codice:
Set rs = cmdSQLData.Execute(numRecord)
inserisci la linea

codice:
MsgBox rs.CursorLocation & " " & CnDb.CursorLocation
e leggi il risultato