Problema Com O Select

[§uiciDa£]

ae galera, o q q temd e errado nesse codigo ?

Private Sub pesqui_Change()
Dim pesq As ADODB.Recordset
pesq.Open "Select * From pacientes where nome LIKE '%" & pesqui.Text & "%' order by nome", con
List1.Visible = True
MsgBox pesq.Fields(2)
pesq.Close
End Sub

ele retorna esse erro:

Object Variable or with Block variable not set

vlww aeeeeee

[Guest Natarelli]

Private Sub pesqui_Change()

Dim pesq As ADODB.Recordset

Set pesq = New ADODB.Recordset

pesq.Open "Select * From pacientes where nome LIKE '%" & pesqui.Text & "%' order by nome", con

List1.Visible = True

MsgBox pesq.Fields(2)

pesq.Close

End Sub

[§uiciDa£]

vlw cara...

eu num sabia q precisava do

Set pesq = New ADODB.Recordset

num recordset...eu nunca tnha usado isso, vlw