Enklast är att använda .RecordCount men det beror på om du öppnar ditt recordset clientsided eller serversided.
Sv: Rader i ett recordset
Svara
Om du öppnar med serversided skriv:
set rst=con.Execute("select count(1) from tabell")
antal = rst(0)
Om du öppnar clientsided
rst.open "select * from tabell", con, 3, 1
antal = rst.RecordCount
/Pelle