use

Recordset.MoveLast

and then

Recordset.RecordCount

Roger