hola amigos tengo un problema con visual basic 6.0
cre un formulario en donde tengo un datagrid y un texbot
en el datagrid me aparecen todos mis pacientes que yo e registrado previamente
eso funciona todo bien ....

pero ahora lo que quiero es que al escribir en el texbox me filtre eso en el datagrid
y me muestre el resultado a medida que voy escribiendo en el texbox ...
tengo el codigo pero en una linea me sale un error no se que estoy fallando amigos ..
una ayuda me caería bien

este es el código del textbox que e usado
Código HTML:
Private Sub buscarr_change()
If buscarr.Text = "ESCRIBA EL NOMBRE DEL PACIENTE A BUSCAR ........" Then
buscarr = ""
End If
With Adodc1
If buscarr <> "ESCRIBA EL NOMBRE DEL PACIENTE A BUSCAR ........" Then
.Recordset.Filter = xxx & " LIKE '*" + buscarr + "*'"
Set DataGrid1.DataSource = Adodc1.Recordset
Else
.RecordSource = "SELECT * FROM pacientes"
Set DataGrid1.DataSource = Adodc1.Recordset
End If
.Refresh
End With
Exit Sub
End Sub
el probema me sale que esta e la siguiete fila
.Recordset.Filter = xxx & " LIKE '*" + buscarr + "*'"