@dimos έχεις δίκιο μάλλον με είχε πάρει ο ύπνος όταν δίαβαζα.
Δύο λύσεις υπάρχουν
1η)
dim count as integer
sqlquery = "select * from table"
dim rs as adodb.recordset
rs.open sqlquery,adocn,adOpenDynamic,adLockOptimistic
'Για να παίξει το Recordcount Πρέπει ο Cursor να μήν είναι forward-only cursor γιατι θα επιστρέφει πάντα -1 , 0 dynamic θα επιστρέψει η -1 η το recordcount και ο static η ο keyset μόνο το recordcount ακόμα και αν είναι 0 '
count = rs.recordcount
2η)
dim count as integer
sqlquery = "select count(*) from table"
dim rs as adodb.recordset
rs.open sqlquery,adocn
count = rs.fields(0)
Και πάλι συγγνώμη για το μπέρδεμα.