Problemas con la consulta SQL en Visual Basic 6.0

[Victoria]

Necesito ayuda en una consulta SQL realizada en Visual Basic 6.0. Con esa consulta pretendo seleccionar los nombres que se asemejen a la cadena de caracteres introducida en una caja de texto.
En primer lugar lancé la consulta desde la base de datos y una vez comprobado que funcionaba la incorporé al codigo en Visual.

'Código
If Txt_buscar_Cliente.Text <> "" Then
Data1.RecordSource = "Select NDoc, Estado, Fecha, Id_Cliente, Cliente, Asunto, ValidadoDpto1, ValidadoDpto2, ValidadoDpto3, ValidadoDpto4, ValidadoDpto5, ValidadoDpto6 FROM [Comunicados Internos] Where cliente like '*" + Txt_buscar_Cliente.Text + "*'"
Data1.Refresh
End If

Data1.Refresh

If Not Data1.Recordset.EOF Then
Grid1.MaxRows = Data1.Recordset.RecordCount
End If

'Antes de que se produzca dicho código en el From Load esta la conexión con la base de datos, la cual está almacenada en la variable global G_Conex
Data1.ConnectionString = G_Conex

Como he dicho al principio esta consulta funciona lanzada desde la base de datos, pero en el codigo el Data1.Recordset esta vacio.

[waltico]

Hola, bien te comento que hize un programita sencillo y de gran utilidad, el cual hace una demostración de una conexion desde el Visual Basic 6.0 con ODBC->MySQL (Conexion).

El cual creo una tabla con sentencia SQL y luego inserto registros (todo eso al iniciar el formulario) despues me desplazo utlizando conexion ADO, Recordset, en modo formuulario casi lo mismo que se utiliza desde el modo diseño.

Es un pequeño ejemplo como se puede hacer una conexion sincilla desde Mysql.

El aqui el codigo, para que lo revises.
http://waltico.huanca.com/trabajos/conexionVB-mysql.zip

Saludos,
Waltico.

[Arkhel]

No me acuerdo bien si en vb6 es igual, en este detalle, a .net,
pero en vez de utilizar * en el operador like pon %

"....like '%" & txt.text & "%'"