Numa conexão normal com arquivos do Access utilizo:

 

Funciona perfeitamanete.

 

Como abrir esta base de dados se o arquivo de referência "base" estiver no formato do MySQL?

 

MySQL é um sistema de banco de dados que não está baseado em "abertura" de arquivos, e sim em uma conexão ODBC com o servidor. A string de conexão vc encontra em http://www.connectionstrings.com

 

aqqui vai o exemplo que uso...

Public Function Abrir_BAse_Dados_MySQL() As Boolean
carrega_dados_Mysql
If Server_MySql = "" Then
       Frm_Acesso.inicio Tipo_Banco
       Frm_Acesso.Show 1
End If
On Error GoTo ERRO
Dim con_str As String
con_str = "DRIVER={MySQL ODBC 3.51 Driver};" _
                        & "SERVER=" & Server_MySql & ";" _
                        & "PORT=" & Porta_MySql & ";" _
                        & "DATABASE=" & Bancodedados_MySql & ";" _
                        & "UID=" & User_MySql & ";PWD=" & Senha_MySql & "; OPTION=35"
Set Conexao = Nothing
With Conexao
    .ConnectionString = con_str
    .Open con_str
    Debug.Print con_str
End With
If Conexao.State = 1 Then
    Abrir_BAse_Dados_MySQL = True
    BD_OPEN = True
    SALVA_Dados_MySQL
Else
    Abrir_BAse_Dados_MySQL = False
End If
Exit Function

ERRO:
MsgBox "" & Err.Number & "  " & Err.Description
End Function

Sub carrega_dados_Mysql1()
    Bancodedados_MySql = ReadINI("Geral", "Mysql_banco", App.Path & "DADOSDADOSconfig.INI")
    Server_MySql = ReadINI("Geral", "Mysql_server", App.Path & "DADOSDADOSconfig.INI")
    Porta_MySql = ReadINI("Geral", "Mysql_porta", App.Path & "DADOSDADOSconfig.INI")
    User_MySql = ReadINI("Geral", "Mysql_user", App.Path & "DADOSDADOSconfig.INI")
    Senha_MySql = ReadINI("Geral", "Mysql_senha", App.Path & "DADOSDADOSconfig.INI")
End Sub
Sub SALVA_Dados_MySQL1()
    Call WriteINI("Geral", "Mysql_banco", Bancodedados_MySql, App.Path & "DADOSDADOSconfig.ini")
    Call WriteINI("Geral", "Mysql_Server", Server_MySql, App.Path & "DADOSDADOSconfig.ini")
    Call WriteINI("Geral", "Mysql_Porta", Porta_MySql, App.Path & "DADOSDADOSconfig.ini")
    Call WriteINI("Geral", "Mysql_User", User_MySql, App.Path & "DADOSDADOSconfig.ini")
    Call WriteINI("Geral", "Mysql_Senha", Senha_MySql, App.Path & "DADOSDADOSconfig.ini")

End Sub

esqpero que ajude...