Wagner Alves Lopes

Pessoal, estou dando manutenção em um projeto feito em vb6 e utiliza o crystal 8 para emissao de relatórios, acontece que todos os arquivos com extensao dsr não carregam mais quando abro o projeto, e nem consigo adicionar estes arquivos no meu projeto, quando vou no menu Project / Add File e adiciono o arquivo .dsr ele dá mensagem de erro dizendo que não pode ser carregado, como faço para corrigir isto?, simplesmente preciso incluir estes arquivos no meu projeto. Agradeço

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

Pessoal, é a primeira vez que utilizo este fórum, estou começando a trabalhar com VB6 e access, e gostaria de uma ajuda no problema abaixo: Toda vez que vou importar dados de uma tabela access(tabelas.mdb) para outra tabela (cadfun.dbf) ele dá a mensagem que o Microsoft.Jet.Oledb não encontrou o objeto, segue abaixo a parte do fonte que chama o bd. Quando eu compilo o programa ele dá erro na linha em negrito. -------------------------------------------------------------------------------------------------- Private Sub Form_Load() Me.Width = 4800 Me.Height = 3600 Set cnnTabelas = New ADODB.Connection Set rsAlocacoes = New ADODB.Recordset ' (BAcili) 'Set rsContratos = New ADODB.Recordset 'bacili 'ABRINDO O BANCO DE DADOS TABELAS.MDB cnnTabelas.OpeProvider=Microsoft.Jet.Oledb.4.0;Data Source='" & dbTabelas.Name & "'"n " Set rsfuncionarios = dbTabelas.OpenRecordset("select * from Funcionarios order by Codigo_Empresa asc, Codigo_Funcionario asc") Set rsContratos = dbTabelas.OpenRecordset("Contratos") rsContratos.index = "Contratos_Codigo" dtpInicio.Value = Date - 30 dtpFinal.Value = Date