Erro conexão com banco de dados

[lcs_sp 0]

e ai pessoal beleza???toh batendo cabeça num erro e não consigo resolver..., o estranho é que sempre usei este método de conexão e nunca deu erro.mensagem de erro: "A conexão não pode ser usada para realizar esta operação ela esta fechada ou é invalida neste contexto."CODIGO:Public Sub Config(pedido As Double) Dim Cn As String Set rs = New ADODB.Recordset Cn = "DRIVER={MySQL ODBC 3.51 Driver};user=usuário;password=senha;server=servidor;database=database;option=20499" rs.Open "select..." <----- linha de erro ... rs.Close Set rs = Nothing Unload Me End Sub

[Dennys Lopes 0]

tenta assim:

 

Public Sub Config(pedido As Double)Dim Cn As StringDim Conexao as NEW ADODB.ConnectionSet rs = New ADODB.RecordsetCn = "DRIVER={MySQL ODBC 3.51 Driver};user=usuário;password=senha;server=servidor;database=database;option=20499"Conexao.Open Cnrs.Open "select...", Conexao, 3... rs.CloseSet rs = Nothing

[lcs_sp 0]

Obrigado Dennys,Funcionou perfeitamente.