[VB6] Variabile o oggetto del blocco With non impostata

[getti]

Ciao ladyBlu
ripropongo il codice più ordinato(almeno spero, non uso i tag di solito) :

    Private Sub Command1_Click() 
                Data1.Recordset.MovePrevious 
          End Sub 
 
          Private Sub Command2_Click() 
                Data1.Recordset.MoveNext 
          End Sub 

          Private Sub Form_Load() 
                Form1.Caption = "DataAccess" 
                Text1.Text = "" 
                Text2.Text = "" 
                Text3.Text = "" 
                Label1.Caption = " Questo è il mio primo progetto con il DataAccess" 
                Command1.Caption = "Indietro" 
                Command2.Caption = "Avanti" 

            With Data1 
                .DatabaseName = "c:\esempio1\northwind.mdb" 
                .RecordSource = "clienti" 
            End With 

            With Text1 
                .DataField = "NomeSocietà" 
            End With 

            With Text2 
                .DataField = "Città" 
            End With 

            With Text3 
                .DataField = "CAP" 
            End With 
         End Sub

Il blocco si genera sull'istruzione Data1.Recordset.MoveNext quando clicco sul Command2 oppure sull'istruzione Data1.Recordset.MovePrevious se clicco sul Command1.
Sostanzialmente, non riesco a far scorrere i record.

Ti ringrazio ancora per ogni contributo
getti