Quando metto questo codice nel mio form di da errore su "rec=ecc ecc":
Come mai? Dove ho sbagliato?!?codice:Dim rec As Recordset Private Sub Form_Load() rec = "SELECT * FROM PIPPO WHERE ((ID) =" & Text1.Text & ")" End Sub Private Sub Timer1_Timer() Data1.RecordSource = rec Data1.Refresh If Label1.Caption = "" Or Label1.Caption = Null Then Label1.Caption = "Non trovato" End If End Sub