Visual basic y form de busqueda

Mis conocimientos en vb 6.0 son casi nulos. Ya he logrado algunas cosas. Como nuevo, guardar, cancelar, modificar y eliminar registros.
Ahora estoy con la búsqueda.
En el frm_clientes hay un boton que me lleva al frm_clientesbuscar para buscar un cliente
En este frm tengo 4 opciones (Nombre, Apellidos. Población y provincia), un textbox y un datagrid. Elijo opción, escribo "Val" y el datagrid me filtra el nombre/apellidos/poblacion/provincia que contenga "Val".
Ahora viene mi problema. Al borrar "Val" del textbox (o lo que escriba) el datagrid no se actualiza. Y me da este error:
"Adodc1. Error de sintaxis en la clausula FROM"
Coloco el codigo que tengo en este form:
Dim XXX As String
Private Sub cmb_volver_Click()
frm_clientes.Show
Unload Me
End Sub
Private Sub Form_Load()
DataGrid1.Columns(0).Width = 700
DataGrid1.Columns(1).Width = 1500
DataGrid1.Columns(2).Width = 1500
DataGrid1.Columns(3).Width = 1500
DataGrid1.Columns(4).Width = 1000
DataGrid1.Columns(5).Width = 1500
DataGrid1.Columns(6).Width = 1500
DataGrid1.Columns(7).Width = 1000
DataGrid1.Columns(8).Width = 1300
DataGrid1.Columns(9).Width = 1300
DataGrid1.Columns(10).Width = 2200
End Sub
Private Sub txt_buscartexto_Change()
If opt_nombre = True Then
XXX = "nombre"
End If
If opt_apellidos = True Then
XXX = "apellidos"
End If
If opt_poblacion = True Then
XXX = "población"
End If
If opt_provincia = True Then
XXX = "provincia"
End If
With Adodc1
 If txt_buscartexto <> "" Then
   .Recordset.Filter = XXX & " like '*" + txt_buscartexto + "*'"
   Set DataGrid1.DataSource = Adodc1.Recordset
   Else
   .RecordSource = "select *from clientes"
   Set DataGrid1.DataSource = Adodc1.Recordset
'En el .Refresh es donde me da error. Al correr el programa me dice "Adodc1. Error de sintaxis en la clausula FROM"
.Refresh
 End If
 End With
End Sub
Gracias! Sea la que sea tu respuesta!