Affected Rows mit Access Datenbank und ODBC

Hallo Group,
seit 4 Stunden bin ich schon am suchen nach einer Funktion
odbc_affected_rows. Leider gibt es diese nicht. odbc_num_rows ruft
SQLCountRows() auf und diese sollte nach Spezifikation die affected
Rows für einen delete, insert oder updatevorgane ausgeben. Tut sie
leider nicht.

Außerdem habe ich noch folgende VB Funktion gefunden, jedoch könnte
ich diese nur über ADODB benutzen und das möchte ich nicht.

Sub ExecuteSQL()

Dim db as Database
Dim LSQL as String

Set db = CurrentDb()
LSQL = "Update suppliers set supplier_name = 'IBM'"

db.Execute LSQL

MsgBox CStr(db.RecordsAffected) & " records were affected by
this SQL statement."

End Sub
Schönen Gruß
Manuel