Ciao a tutti

Qualcuno sa dirmi perchè ricevo
Errore di compilazione - Numero errato di argomenti o assegnazione di propietà non valida

Il codice è questo:

codice:
Private Sub Command_Click()
Dim sqlstring As String
Dim Db As Database
Dim Rs As Recordset

sqlstring = "select * from [Anagrafico Incarico] where Azienda like '*" & Replace(Text1.Text, "'", "''") & "*'"  'la funzione replace per non avere errori se inserisci apici nella stringa di ricerca
Set Db = OpenDatabase("C:\Test in VB\database.mdb")
Set Rs = Db.OpenRecordset(sqlstring)
Set Data1.Recordset = Rs
If Not Data1.Recordset.EOF Then
Do While Not Data1.Recordset.EOF
List1.AddItem (Data1.Recordset.Fields("Azienda"))
Label2 = (Data1.Recordset.Fields("id"))
Data1.Recordset.MoveNext
Loop
Dim I As Integer
        For I = 1 To Data1.Recordset.RecordCount
            Label2.Caption = Label2.Caption & "- Nome: " & Data1!Nome & " Cognome: " & Data1Cognome & vbCrLf
            'Si sposta nel record successivo.
        Next I
Else
MsgBox "Nessun record"
End If

End Sub
VB mi evidenzia Data1


Grazie mille