Leyendo datos->Operacion multiples pasos ole db genero errores -147217887 (80040e21)

[yeyowave]

Hola, tengo el siguiente codigo

Public Function Conectar_mysql()
Set conxion_mysql = New ADODB.Connection
conxion_mysql.CommandTimeout = 40
conxion_mysql.CursorLocation = 1
conxion_mysql.Open "DRIVER={MySQL ODBC 5.1 Driver};DATABASE=" & NomBd & ";SERVER=" & Servidor & ";UID=" & Usuario & ";password=" & Pwd & ";PORT=" & port & ";Encrypt=true;"
End Function

y en un boton....
Set Rs_mysql = New ADODB.Recordset
Set Rs_mysql = conxion_mysql.Execute("select * from prueba")
Do While Not Rs_mysql.EOF
MsgBox Rs_mysql("id").Value ---> funciona ok y muestra el valor
MsgBox Rs_mysql("nombre").Value -> error Operacion multiples pasos ole db genero errores -147217887 (80040e21)
rs_mysql.movenetx
loop

en la base de datos tengo
id nombre dato
1 hola alfanumerico012447

Campo nombre y dato tipo texto en mysql
campo id tipo numerico en mysql


he ledo por google, y todo lo que veo son errores al grabar datos, pero no al leer, alguna ayuda, estoy desesperado.

Gracias