Visual Basic - Error en el metodo RecordSource de MSHFlexgrid

Saludos

Estoy desarrollando una aplicación que conecta a una BD de MySQL, tengo un Form con un MSHFlexGrid donde al asignarle el origen de datos ADODC me manda el siguiente error:

Error en el metodo DataSource del objeto MSHFlexGrid " Numero de error -2147467259

Este es el código:

If conexion.rst.EOF = False Then
llena_Campos_Empresas
MsgBox (conexion.sql)
With Adodc1
.ConnectionString = conexion.con.ConnectionString
.RecordSource = conexion.sql
End With

Set fgEmpresa.DataSource = Adodc1

conexion.Fin
End If
La conexión está Ok, ya que lleno unos campos con esta, pero deseo que se llene el MSHFlexGrid.
Estoy utilizando módulos de clase, si hago lo mismo hacia una BD de SQL funciona bien, ¿alguien puede ayudarme?

Gracias de antemano. Saludos.

El control MSHFlexGrid no tiene ningún método RecordSource, Sólo tienes que poner la siguiente instrucción

Set MSHFlexGrid1.DataSource = Adodc1

Gracias por tu respuesta Alex, me equivoqué en el tpitulo, pero si ves el código verás que está como mencionas, con DataSource, el caso es que orientando la aplicación a una BD de SQL funciona bien, pero en MySQL este método no funciona, no se si el control ADODC no soporte MySQL (que se me hace raro) o requiera de mas parámetros a asignar. ¿Alguien puede ayudarme?. Gracias.

Antes que nada gracias por responder. Si, lo tengo instalado, bajé el siguiente:
mysql-connector-odbc-5.00.09-beta-gpl-win32.msi
Funciona muy bien con ADO para consultas.
No se si por ser una versión Beta pudiera tener problemas, quizá deba bajar una versión del conector, ¿alguno ya ha utilizado MSHFlexGrid con MySQL?. Gracias.

A ver si te sirve:

En un formulario está el DataControl llamado 'Adodc1'
Un MSHFlexgrid con su propiedad 'DataSource' = Adodc1
(Obviamente, esto se define en tiempo de diseño)

y en el código del formulario, en el evento Load:

Adodc1.ConnectionString = "Provider=MSDASQL.1;" & _
"Extended Properties='DRIVER={MySQL ODBC 3.51 Driver}';" & _
"DESC=;DATABASE=datos1;" & _
"SERVER=localhost;UID=root;PASSWORD=;PORT=;OPTION=;STMT=;"
Adodc1.RecordSource = "Select * from clientes order by Clave"
Adodc1.Refresh

Y así, tal cual, muestra el contenido de la tabla "clientes" de la
base de datos "datos1". Este ejemplo me funciona.
Nota que la versión del ODBC es la 3.51.

Muchas gracias, lo voy a probar y les comento, pero creo que el problema es la versión de mi conector, que es una versión Beta. Saludos.

Muchas gracias, con esto funcionó bien.

Saludos