problemas con datagrid

[ALVIA2010]

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 + "*'"

[gasuton]

alvia2010 porque el xxx delante?