[RESOLVIDO] - Erro conexão MySQL

Olá!

Minha aplicação necessita de uma conexão MySQL sem necessidade de configurar o ODBC (sem DSN).

Utilizo o seguinte para conexão com MySQL:

Código:


    Dim cn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim strBDSqlServidor As String
    Dim strBDSqlUsuario As String
    Dim strBDSqlSenha As Variant
    Dim strSqlBDDatabase As String
    Dim strSql as string
    
    strBDSqlServidor  = IPServidorMySQL
    strBDSqlUsuario = NomeUsuario
    strBDSqlSenha = SenhaUsuario
    strSqlBDDatabase = NomeBaseDados

    Set cn = New ADODB.Connection
 
    cn.ConnectionString = "Driver={MySQL ODBC 5.1 Driver};server=" & strBDSqlServidor & ";Database=" & strSqlBDDatabase & ";uid=" & strBDSqlUsuario & ";pwd=" & strBDSqlSenha & ";"
 
    cn.Open
    rs.CursorLocation = adUseClient



Mas ao executar o seguinte código:

Código:


    strSql = "Select * from tblTabela"
    rs.Open strSqln  <<-- Erro!!!


Aparece o erro:

"Erro em tempo de execução '3709':
A conexão não pode ser usada para realizar esta operação. Ela está fechada ou é inválida neste contexto"

Utilizei também o seguinte código e ocorreu o mesmo erro no mesmo ponto:

Código:


    cn.ConnectionString = "Driver={MySQL ODBC 5.1 Driver};server=" & strBDSqlServidor & ";Database=" & strSqlBDDatabase & ";uid=" & strBDSqlUsuario & ";pwd=" & strBDSqlSenha & ";"
    
    rs.CursorLocation = adUseClient      
    strsqln = "Select * from tblTabela"
    rs.Open strsqln, cn, adOpenDynamic, adLockOptimistic <<-- Erro!!!


Utilizo Windows 10 Pro e Office365 2016

Alguém pode me ajudar?

Obrigado.

Resolvido.....

Depois de quebrar a cabeça, desinstalar e reinstalar drive MySql o problema só foi resolvido quando desinstalei o drive, limpei o registro do Windows e reinstalei o drive do MySql.

Obrigado.

Olá Maurício Santos,
Que bom que resolveu!
Obrigado pelo retorno, o fórum agradece.
Abraço