[VB6]contare i record in un ciclo nidificato

[jakula]

Ciao,

vorrei avere come output nel form il numero dei records del mio database durante l' evento command di cui allego il codice.
Devo usare count o esiste un altro metodo?

(vorrei che apparisse in una textbox "tipo totale record nel database.... )

VB6

  
Private Sub Command15_Click()
If Data1.Recordset.EOF = False Then
For x = 0 To 1
Localita(x).Text = Text2.Text
Intestazione(x).Text = Text14.Text
Indirizzo(x).Text = Text5.Text
Telefono(x).Text = Text8.Text
Data1.Recordset.MoveNext

Next x
End If
End Sub

Grz