Hallo Peter,
ich hole mir die Anzahl der Treffer nachher über das Recordset:
rs.Open sqlString, conDatabase
ArrRows= rs.getrows
call close_rs()
call close_db()
Dim numrows
numrows = ubound(ArrRows,2)
Wobei die Anzahl der Treffer gleich numrows + 1 ist.
Gruß,
fotzibaer