Hi Bjorn
Try this

Code:
Data1.Recordset.MoveLast
numrecs = Data1.Recordset.RecordCount
Data1.Recordset.MoveFirst

msgbox numrecs