Erro conexão com banco de dados

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