Ecco la parte del codice che mi da' l'errore ( sono un quarantenne ma principiante)


If datadacercare <> "" Then
'Esegue la ricerca solo se è stato immesso un nome.
Data1.Recordset.MoveFirst
Data1.Recordset.Index = "pippo"
Data1.Recordset.Seek "=", datadacercare


If Data1.Recordset.NoMatch Then
Data1.Recordset.MoveFirst
Data1.Refresh
'La data cercata non è stata trovata
Data1.Recordset.MoveLast
Data1.Recordset.AddNew
Data1.Recordset.Data = datadacercare$
Data1.Recordset.mc = mc

Data1.Recordset.Update
Adodc1.Refresh

End If
End If
Data1.Recordset.MoveFirst