[VB6]contare i record in un ciclo nidificato

[jakula]

Un primo risultato l' ho ottenuto cosi' ( poi il print lo cambio ovviamente)
Ma si accettano soluzioni migliori tipo come usare il record.count

  

Dim c As Variant
Do While Data1.Recordset.EOF = False
Data1.Recordset.MoveNext
c = c + 1
Print c
Loop