Erro 3709 - Erro na conexão ???

E ai pessoal blz ! Estou com um problema de conexão muito estranho...

Trabalho com VB6, DataEnvironment (ADO) e BD Access, DataGrid...

O sistema estava operando perfeitamente a mais de ano... só que de uns dias pra cá ele começou a dar o seguinte erro : "3709 - a conexão não pode ser usada para realizar esta operação", o mais intrigante é que se criar um novo projeto abrir um form, abrir a conexão ele não gera nenhum problema....

Parte da Rotina :

    AbreConexao

    Set Grid.DataSource = Nothing

    With DEGerente.rsLanctosCC
        .Close
        .Open "SELECT * FROM LanctosCC"   ---> O ERRO GERA NESTE MOMENTO....
    End With

    SQL = ""
    SQL = SQL & "SELECT LanctosCC.LanctoID, Format([DATAREF],'dd/mm/yyyy') AS DataR, "
    SQL = SQL & "LanctosCC.RefDescr, LanctosCC.Complemento, LanctosCC.Documento, "
    SQL = SQL & "IIf([DC]='D',Format([Valor],'#,##0.00 '),'') AS Débito, "
    SQL = SQL & "IIf([DC]='C',Format([Valor],'#,##0.00 '),'') AS Crédito "
    SQL = SQL & "From LanctosCC "
    SQL = SQL & "Where (((LanctosCC.Cliente) = " & ContaNumero & ")) "
    SQL = SQL & "ORDER BY LanctosCC.DataRef, LanctosCC.LanctoID;"

    With DEGerente.rsSQLLanctosCC
        .Close
        .Open SQL
        .MoveMax
    End With

    With Grid
        Set .DataSource = DEGerente
        .DataMember = "SQLLanctosCC"
    END WITH

-> A tabela 'LanctosCC' tem aproximadamente 15.000 registros...
-> O BD esta com aproximadamente 15M...

Pode ser porque o sistema esta muito grande ? Tem varios form's, etc...

Agradeço desde já....