Visual Basic - Sobre busqueda en msflex grid

Buenas a todos, antes que nada gracias por tomarse un tiempo para leer, veran tengo el siguiente problema estoy realizando una aplicacion sencilla de visual basic con bases de datos ado ya tengo la conexion sin problemas, ahora tengo un formulario en donde hay un control de msflexgrid, el cual toma los datos de una tabla de la base de datos que son simplemente los registros de los clientes ahora me pasa lo siguente primero que nada el msflexgid me muestra todas las columnas de la tabla de la cual yo solo necesito mostrar algunas de ellas pues es un formulario de consulta y la otra incognita es que a travez de un text box que esta en el formulario, filtre por ejemplo el nombre del cliente que al tipearlo en el mismo solo muestre las coincidencias en el ms flex grid les agradesco cualquier ayuda por favor y gracias de antemano por todo lo que puedan guiarme

Para la primera incognita
Haces una consulta de selección en un recordset y le pones el recorset en la propiedad DataSource del Grid.

Para la segunda incognita
En el evento Change del TextBox renuevas la consulta con un WHERE campo LIKE '" & TextBox & "%'"

gracias por la ayuda, disculpa de verdad mi ignorancia pero seria posible un codigo mas explicito?, entiendo cuando te refieres a realizar la consulta bueno hasta cierto punto, por eso te consuto como podria realizarlo

puedes poner como te conectas a la base de datos y ómo enlazas la tabla al FlexGrid?

en el formulario

en el form load

Call ENLAZARBASE

y en un modulo

Option Explicit

Dim RUTA As String

Public MIBASE As Database
Public TREGISTRO As Recordset
Public TLISTAPRODUCTO As Recordset
Public TTURNO As Recordset
Public TASIGNADO As Recordset
Public TLISTA As Recordset


Public Sub ENLAZARBASE()

RUTA = "" & App.Path & "GENERAL.MDB"
Set MIBASE = OpenDatabase(RUTA)
Set TREGISTRO = MIBASE.OpenRecordset("REGISTRO")
Set TLISTAPRODUCTO = MIBASE.OpenRecordset("LISTAPRODUCTO")
Set TTURNO = MIBASE.OpenRecordset("COLATURNO")
Set TASIGNADO = MIBASE.OpenRecordset("COLAASIG")
Set TLISTA = MIBASE.OpenRecordset("LISTAPRODUCTO")

End Sub


de esa forma tengo conectada la base de datos claro esta en componentes del programa tengo activada la opcion de microsoft dao 2.51/3.01 library

esto es es esencia la manera en que tengo conectada la base de datos

En ese código no identifico cual es la tabla de clientes, pero la vamos a llamar "TablaClientes"

El código en síntasis sería así:

Private Sub Text1_Change()
Dim strSQL As String
strSQL = "SELECT * FROM TablaClientes WHERE NombreCliente LIKE '" & Text1.Text & "*'"
Set rs = MIBASE.OpenRecordset(strSQL)
End Sub

No aconsejo trabajar con DAO (ya que es una tecnología de acceso a datos obsoleta), pero menos con la versión que mencionas, porque si intentas abrir una BD Access superior a la versión 97, te va a dar error.

Mejor marca la referencia a DAO 3.6