Bom Dia Amigos

 

Tenho um sistema em VB6 que usa o Access e o Crystal 7.Gostaria de saber como eu declaro o caminho para acessar a base de dados em Access dentro do VB quando eu for chamar o relatorio do Crystal.

 

 

Obrigado

Em um projeto meu criei uma sub que abre o Report (banco e dados para atualizar campos) segue abaixo:

 

 

Public Sub Start_Reports(pNomeReports As String, _
                            pFormula As String, _
                            pLIcenca As String, _
                            pExtenso As String, _
                            pValor As String)
                           
                           
        Screen.MousePointer = 11
        With principal.CR1
             .Reset
            ' habilita a selecao de impressoras instaladas
            .WindowShowPrintSetupBtn = True
            .WindowState = crptMaximized ' janela maximizada
            .WindowControlBox = True
            .SelectionFormula = pFormula
            If Trim(pLIcenca) <> "" Then
                .Formulas(0) = "Licencas = '" & pLIcenca & "'"
            End If
            If Trim(pExtenso) <> "" Then
                pExtenso = pExtenso
                .Formulas(1) = "Extenso = '" & pExtenso & "'"
            End If
            If (pValor) > 0 Then
                .Formulas(2) = "Valor = '" & pValor & "'"
            End If
            .Formulas(3) = "Parcelas = '" & assistente1.txtparcela & "'"
            .Formulas(4) = "NomeDiretor = '" & assistente1.txtcontratante & "'"
            .ReportFileName = App.Path & "" & pNomeReports & ".RPT" ' Abre a Report
            .DataFiles(0) = App.Path & "controle.mdb"  ' Abre o BD
            .Destination = 0
            .Action = 1
        End With
        Screen.MousePointer = 0

 

Abrazzz