Conexion a base de datos con RDO

[optimus100]

Hola a todos, pues tengo una duda con respecto a utilizar el RDO para la conexion de base de datos. Estoy haciendo una prueba de como funciona esta libreria en una pequeña aplicación con VB6 y MYSQL, el problema que tengo es que al ejecutar la aplicacion me manda un mensaje de error 429 en tiempo de ejecucion y me indica que el componente ActiveX no puede crear el objeto. Esto me pasa cuando llega a esta linea de codigo:

Código:

Private Sub cmdConectar_Click(Index As Integer)
        
        Dim rdoEn As rdoEnvironment
        Dim db As rdoConnection

   Set rdoEn = rdoEnvironments(0)
 
    
    With db
    
    .Connect = "UID=root; PWD=qtx; Database= seminario ;" _
        & "Server=localhost;Driver={MySQL ODBC 3.51 Driver}" _
        & "DSN='';"
    .LoginTimeout = 5
    .EstablishConnection rdDriverNoPrompt, True
    rdoEn.rdoConnections.Add (db)
    
    End With


    
End Sub

E incluso me sigue mandando ese mensaje aun cuando desde las referencias del proyecto ya he seleccionado la libreria: Microsoft Remote Data Object 2.0

La base de datos esta en mi lap (localhost), al igual que VB6 SP6

Alguien sabe porque me sigue mandando este mensaje ??????