hola a todos...

estoy trtando de conectar visual basic con MySQL a traves de DAO por ODBC y no me resulta, me sale un mensaje que dice "error 3146 Fallo la llamada" no se que puede ser, sin embargo he revisado la cadena de conexion y nada, sigue igual... necesito de la yuda que me puedan dar, cualquier sugerencia la tendre en cuenta.... les agradezco de antemano su ayuda. hay les pego el codigo del procedimiento que estoy usando para la conexion.

chao....

PD: El error se produce en el texto rojo

Public Sub ConexionODBC(ByVal User As String, ByVal Pass As String, ByVal ReadOnly As Boolean)
    On Error GoTo Errores:
    Dim StrCon As String
    DBEngine.DefaultType = dbUseODBC
    Set Ws = Workspaces(0)
    Set Ws = DBEngine.CreateWorkspace("ODBCWSpace", User, Pass, dbUseODBC)
   
    StrCon = "ODBC;" _
            & "DRIVER={MySQL ODBC 3.51 Driver};" _
            & "DSN=DB;" _
            & "SERVER=localhost;" _
            & "DATABASE=SIPAS;" _
            & "UID='" & User & "';" _
            & "PWD='" & Pass & "';"

    If ReadOnly = False Then
        Set Conn = Ws.OpenConnection("SIPAS", dbDriverNoPrompt, False, StrCon)
    Else
        Set Conn = Ws.OpenConnection("SIPAS", dbDriverNoPrompt, True, StrCon)
    End If
   
    Set Rs = Conn.OpenRecordset("SELECT * FROM STORES", dbOpenDynamic, _
            0, dbOptimistic)
   
    Rs.MoveFirst
    Exit Sub
Errores:    MsgBox "Ha ocurrido un error. Error número: " & Err.Number & " " & Err.Description, vbCritical + vbMsgBoxHelpButton + vbDefaultButton2, "Error en tiempo de ejecución"
            Err.Clear
            Exit Sub
End Sub