[VB6] - Creare un recordset...

[Pinco Pallino 2]

Quando metto questo codice nel mio form di da errore su "rec=ecc ecc":

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

Come mai? Dove ho sbagliato?!?