Consultar banco MySQL Server

[LucasPThiago 0]

Boa noite, tenho esse código VBA abaixo em que ele faz a conexão com meu banco de dados MySQL no phpadmin e procura celulas na minha planilha excel. acontece o seguinte, o restante da macro, que é para ele consultar o banco pra saber se os dados que estão na planilha existem também no banco de dados não consigo rodar meu Recordset. Alguém poderia me ajudar com isso ? Por favor.

Option Explicit

Global consulta As Recordset

Global Cn As ADODB.Connection

Sub conex()

Set Cn = New ADODB.Connection

Cn.ConnectionString = _

"driver={mysql odbc 5.3 ansi driver};" & _

"server=localhost;database=banco;uid=root;pwd=;"

Cn.CursorLocation = adUseClient

Cn.Open

'MsgBox "Conexao Efetuada!"

'Cn.Close

End Sub

Sub Desconecta()

'Faz a liberação das variáveis objeto do Banco de dados

Set Cn = Nothing

Set consulta = Nothing

End Sub

Private Sub Atualiza_ID_Subsidio_IW()

Dim Linha As String

'Cria variável que armazena os comandos SQL

Dim ComandoSQL As String

Dim Num_Proc As String

'looping das colunas

Sheets("Planilha1").Range("A1").Select

'lopping das linhas

Do While ActiveCell <> ""

Linha = ActiveCell.Row

Num_Proc = Sheets("Planilha1").Cells(Linha, 1) 'I

'Armazena na variável o comando que fará a consulta SQL no BD Access

ComandoSQL = "select * from usuarios where nome = '" & Num_Proc & "'"

Call conex

Set consulta = New ADODB.Recordset

consulta.Open ComandoSQL, Cn, adOpenDynamic, adLockReadOnly

With consulta

consulta.Edit

'consulta("senha") = Sheets("Planilha1").Cells(Linha, 2) 'AB

'consulta("usuario") = 1

'consulta("Data_Solicitacao_Subsidio") = Date

'Se houver erro

'On Error Resume Next

'Efetiva a atualização do BD

'.Update

'Fecha o Recorset e a conexão com o BD

'consulta.Close

'Cn.Close

'Chama a rotina que desconecta do BD (libera variáveis objeto de BD)

'Call Desconecta

'ActiveCell.Offset(1, 0).Select

End With

Loop

'Exibe mensagem de sucesso na inclusão do registro

'MsgBox "Dados Alterados com Sucesso! SID", vbDefaultButton1, "Alteração"

'Abandona a subrotina

'Exit Sub

End Sub

[KhaosDoctor 242]

E qual é o erro?