codice:
        Set gRscalcoliamo = New ADODB.Recordset
                     gsSQL = "SELECT * FROM  DATI" 
                gRscalcoliamo.Open gsSQL, gCnDatabase
 
                 Do While gRscalcoliamo.EOF = False


 iconta = iconta + 1
  
  
         gRscalcoliamo.MoveNext
    
    Loop
   
     gRscalcoliamo.Close
cosi ho un recordset con tutta la tabella , e in iconta ho il totale dei record.