Mysql por odbc con vb6

[Ecj]

Buenos dias

Tengo un inconveniente en un proyecto que estoy intentando realizar, resulta que quiero trabajar mi aplicacion en vb6 con mysql, anteriormente lo hacia con acces, pero quiero cambiar por que mysql es mejor, entonces para no cambiar mucho la programacion me conecte a mysql con una ODBC, con el mismo nombre de la que use con acces, pero tengo un problema, al hacer este cambio no se me generaron problemas ni con los Insert ni con los Delete, pero si con los UUn pdate y los Select.

Un ejemplo de la estructura que uso es la siguiente:

'Variable que accede a la conexion, hecha en un modulo
Dim qry As New rdoQuery
'Cadena sql
Dim sql As String
'Abre el conjunto de resultados
Dim rs As rdoResultset

sql = "Select * from Gente2"
'Se ejecuta la consulta
Set qry.ActiveConnection = RDOCONEXION
qry.sql = sql
qry.Execute
'Abre el conjunto de resultados
Set rs = qry.OpenResultset(rdOpenDynamic)
'Saca un mensaje con la cantidad de resultados encontrados
MsgBox rs.RowCount

Pero cuando llega a la parte en la que se supone abre el conjunto de resultados se me cierra toda la aplicacion incluso crea conflicto en vb6 y se cierra.

La pregunta es, como debo hacer la consulta, o que debo cambiar para que me funcione correctamente pero usando aun la odbc?

Agradezco mucho cualquier colaboracion que me puedan brindar.