Consultar banco MySQL Server

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