hai ragione scusa!!
io ho scritto questo codice:

codice:
Private Sub Form_Load() 
Load Form2 
Form2.Show vbModal 
Data1.DatabaseName = App.Path & "spai.mdb" 
End Sub  
Private Sub Command1_Click() 
If cerca.Text <> "" Then Data1.RecordSource = " SELECT * FROM Coppie WHERE Cognomemarito LIKE '" & cerca.Text & "*'" 
cognomelui.Text = Data1.Recordset.Field(Cognomemarito).Value  
End If 
End Sub
e sulla riga
cognomelui.Text = Data1.Recordset.Field(Cognomemarito).Value
mi da l'errore