Visual Basic - conexion mysql

Que tal, estoy realizando un controlador active x, y necesito que este se conecte a la base de datos en mysql para enviar unos datos, me podrian ayudar pues no conozco mucho como se realiza la conexion a mysql mediante el odbc tengo esto pero no se cual sea mi error:

Dim paso As String
Dim servidor As String
Dim base_de_datos As String
Dim password As String
Dim usuario As String

servidor = "localhost"
base_de_datos = "sientest"
password = "123456"
usuario = "root"

cadena_conexion = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=" & servidor & "; DATABASE=" & base_de_datos & " ;PWD=" & password & "; UID=" & usuario & ";OPTION=3"
Set db = New rdoConnection

db.Connect = cadena_conexion
db.CursorDriver = rdUseServer
db.EstablishConnection

'iniciamos la consulta
Set consulta.ActiveConnection = db

consulta.SQL = "select * from tblarchivopersonas"
consulta.Execute

Set resultados = consulta.OpenResultset

While Not resultados.EOF
paso = resultados(columna.Name)
clave.Text = paso
resultados.MoveNext
Wend

End Sub


esto realmente me urge gracias