erro de conexão com banco de dados

[Alex Mauricio]

Bom dia pessoal

Estou migrando uma aplicação de DAO para ADO, porem estou fazendo um teste antes... que por sinal está dando um erro q não estou localizando...

segue o codigo abaixo:

Option Explicit
Dim conexao As New ADODB.Connection
Dim resultado As New ADODB.Recordset
Dim consulta As New ADODB.Command
Dim argumento As New ADODB.Parameter

Private Sub Form_Load()
    conexao.ConnectionString = "driver={MySQL};server=localhost;uid=root;pwd=root;database=bdnprecibo"
    conexao.ConnectionTimeout = 30
    conexao.Open
    Set consulta.ActiveConnection = conexao
End Sub

Private Sub Command1_Click()
    Dim ssql As String
    
    ssql = "select * from tbl_usuarios order by cod_usuario asc"
    consulta.CommandText = ssql
    resultado.Open consulta, , adOpenStatic, adLockBatchOptimistic
    
    If resultado.RecordCount = 0 Then
        MsgBox "zero"
    Else
        msbox "tem"
    End If
End Sub

ele para na seguinte linha "conexao.Open"

já chequei o nome do servidor, usuario, senha e bd e estão corretos...

o erro é o seguinte

run-time error '-2147467259(80004005)':

[microsoft][odbc driver manager] nome da fonte de dados não encontrado e nenhum driver padrão especificado

informação importante, estou ocm o driver mysql-connector-odbc-5.1.6-win32 instalado

já tenmtei tb criar um dsn mas não adianto tb ( embora o objetivo seja criar sem dsn)

obrigado

[sNniffer]

Cara da uma olhadinha se funciona, este código, ele é para a conexão com o banco de dados MySQL:

On Error GoTo trata_erro

Me.MousePointer = vbHourglass

Set gConexao = New ADODB.Connection

gConexao.ConnectionTimeout = 60

gConexao.CommandTimeout = 400

gConexao.CursorLocation = adUseClient

gConexao.Open "DRIVER={MySQL ODBC 3.51 Driver};" _

& "user=" & "root" _

& ";password=" & "" _

& ";database=" & "BancoDeDados" _

& ";server=" & "localhost" _

& ";option=" & (1 + 2 + 8 + 32 + 2048 + 16384)

Me.MousePointer = vbNormal

If gConexao.State = 1 Then

SaveSetting App.Title, "Settings", "localhost", localhost

SaveSetting App.Title, "Settings", "root", root

SaveSetting App.Title, "Settings", "BancoDeDados", BancoDeDados

Else

MsgBox "Não foi possível estabelecer a conexão. Verifique as configurações e tente novamente.", vbCritical, "Erro durante

a conexão..."

End If

Exit Sub

trata_erro:

MsgBox Err.Number & " " & Err.Description, vbCritical, "Erro durante a conexão..."

Se não funcionar posta ai, que dou uma olhada mais profunda e respondo.

Boa sorte!