e aí pessoal ...
estou usando um RDC do crystal reports, tenho um banco de dados no access com Senha e faço da seguinte maneira pra abrir o relatório só que dá um erro de que o ocorreu um erro ao abrir o banco de dados? Alguém pode me ajudar, estou usando a seguinte linha:

Dim CR_Aplicacao As New CRAXDRT.Application
Dim Relatorio As CRAXDRT.Report
Dim CR_DatabaseTable As CRAXDRT.DatabaseTable
Dim CR_Database As CRAXDRT.Database
Dim DBName As String

'CRV é o meu RDC ...

    
    Set Relatorio = CR_Aplicacao.OpenReport("C:MeuRelatorio.rpt", 1)
   
    For Each CR_DatabaseTable In Relatorio.Database.Tables
       CR_DatabaseTable.Location = DBName
       CR_DatabaseTable.SetLogOnInfo "", "MeuBanco", "MeuUsuario", "MinhaSenha"
    Next CR_DatabaseTable
   
    CRV.ReportSource = Relatorio
    CRV.ViewReport

desde já, obrigado.