Guru do Excel e Power BI

Bom dia,

Não estou conseguindo conectar ao meu BD em MySQL.

Segue o código abaixo, alguém consegue me ajudar?

Sub Conectar_BD()

'Abre a Conexão com o BD

Set Conexao = New ADODB.Connection
Conexao.ConnectionString = "DRIVER={MySQL ODBC 5.3 DRIVER};" _
& "SERVER=10.93.254.62;" _
& "DATABASE=funcionarios;" _
& "UID=usuario;" _
& "PASSWORD=senha;"

Conexao.Open


End Sub

RCosta, boa tarde.

Quando trabalhamos com a conexão do MySQL, é necessário verificar alguns pontos antes:
1º) O serviço esta disponível (online)?
2º) O Driver ODBC esta instalado?
3º) A forma escrita do driver no código VBA, é igual ao registrado no sistema?

Sobre esse terceiro ponto, geralmente utilizo a seguinte forma de escrita no código:
- "MySQL ODBC 5.3 ANSI Driver"

Acho que seria interessante testar os pontos acima e ver se estão todos ok. Agora, se mesmo assim não funcionar, mande outra mensagem para analisarmos.

Abraços e excelente estudo.

Deu certo com MySQL ODBC 5.3 ANSI Driver.

Muito obrigado Mikel!!!