prova così:

codice:
If NomeDelRecordset <> Nothing Then
     msgbox"Il record è aperto"
else
     msgbox"Il record è chiuso"
end if