ADOBD -conexao

[Wagner Alves Lopes]

Amigos, preciso de uma ajuda onde estou dando manutenção em um programa feito em vb6 e access, e a rotina abaixo deveria abrir a tabela caddep(cadastro de depedentes) porem quando vou abrir o formulario onde cadastro/consulto dependentes dá o seguinte erro("não permitido quando objeto esta fechado")

Sub CarregaRsDep()

On Error Resume Next

Dim cod As String

Dim codF As String

cod = cmbEmpCodigo.Text

codF = cboCodFunc.Text

If cod <> vbNullString And codF <> vbNullString Then

mysql = "SELECT * FROM Caddep WHERE DE_EMP= " & cod & " AND DE_FUN= " & codF & ""

Set rsD = New ADODB.Recordset (ACHO QUE O ERRO ESTA NESTA LINHA)

rsD.Open mysql, cnt, adOpenKeyset, adLockOptimistic

Else

mysql = "SELECT * FROM Caddep WHERE DE_EMP= 0 AND DE_FUN= 0"

Set rsD = New ADODB.Recordset

rsD.Open mysql, cnt, adOpenKeyset, adLockOptimistic

End If

SE alguém PUDER ME AJUDAR,

AGRADEÇO MUITO

VALEU

[kuroi]

wagner, o erro é mesmo "não permitido quando objeto esta fechado" ou seria "não permitido quando objeto esta aberto"??

faca o seguinte, apague ou comente a linha On Erro Resume Next (só pra achar o erro, depois pode por de volta) e veja em qual linha ocorre o erro e depois poste aqui.