Visual Basic - ADOC RECORDSET.FILTER

Tengo un control ADOC enlazado a un DATAGRID y si esta normal (sin filtros) se muestra bien, pero cuando me muestra el filtro esta todo igual como si no lo aplicara.

Conecto el datagrid al control adoc mediante esto:

CONECCION = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Persist Security Info=False;" & _
"Data Source=" & ARCHBASE

Me.ADOCCLIE.ConnectionString = CONECCION
Me.ADOCCLIE.CommandType = adCmdTable
Me.ADOCCLIE.RecordSource = NAMETABLA
Me.ADOCCLIE.Refresh

donde ARCHBASE es la ruta a la base de datos. (pero eso funciona bien)

y para filtrar lo que hago, es que tengo que cerrar la base y volverla abrir pero igual no me hace el filtro, o no se si tengo qeu cerrarla para filtrarla nuevamente, y esto es lo que uso para filtrar.

CADBUSQUEDA = "SELECT * FROM " & "[" & NAMETABLA & "]" _
& " WHERE " & FILTRO1 & " " & COND1 & " " & "'" & TEXT1 & "'"

donde NAMETABLA="CLIENTES_EXT"
FILTRO1="SUCURSALES"
COND1="=" (SIGNO DE IGUAL)
TEXT1="CORONADO"

y luego de eso aplico

Me.ADOCCLIE.Recordset.Filter = CADBUSQUEDA

Pero todo me sigue igual, no me cambia nada, ayuda por favor :(

.Filter espera una cadena de busqueda, no una sentencia select .

Si quieres usar un select, especificalo en el punto donde dice

Me.ADOCCLIE.CommandType = adCmdTable
Me.ADOCCLIE.RecordSource = NAMETABLA

Remplazandola por

Me.ADOCCLIE.CommandType = adCmdText
Me.ADOCCLIE.RecordSource = "SELECT * FROM " & "[" & NAMETABLA & "]" _
& " WHERE " & FILTRO1 & " " & COND1 & " " & "'" & TEXT1 & "'"

(OJO QUE AQUI QUIEN HACE EL FILTRADO ES EL MOTOR DE BASE DE DATOS)

O si quieres usar filter , tienes q especifcarlo asi

CADBUSQUEDA = FILTRO1 & " " & COND1 & " " & "'" & TEXT1 & "'"

(AQUI EL FILTRADO LO HACE LA MAQUINA CLIENTE)


Filter es mas rapido puesto que trabaja con el recordset que ya se encuentra en tu maquina, pero si tu base tiene cientos de registros, lo mejor seria hacer la discrimancion en el select, de no hacerlo asi, en cada ejecucion tu programa recuperaria los cientos de registros que ya se encuentren en la tabla. Como regla general en bases de datos, ningun select deberia ejecutarse sin un "where".

Saludos!

My friend, el filter solo funciona sobre la clausula WHERE no tienes que indicar todo el query.

el filtro es como una opcion más del where.

Ej.

rd.filter = "CAMPO = 'CONDICIÓN'"

SALUDOS.