ACESSO AO PRIMEIRO ARQUIVO CRYSTAL

 Private Sub exibindo()

NomeRelatorio = "Notafiscala.rpt"
    
Sql = "SELECT notafiscal.codvenda,notafiscal.numnota, notafiscal.tiponota, notafiscal.natureza,notafiscal.emissao , notafiscal.saientra, notafiscal.horasai, notafiscal.cfop, notafiscal.ietributario, notafiscal.razaosocial, notafiscal.cnpj, notafiscal.endereco, notafiscal.bairro, notafiscal.cep, notafiscal.cidade, notafiscal.fone, notafiscal.uf, notafiscal.iestadual, notafiscal.calculoicms, notafiscal.valoricms, notafiscal.icmssubs, notafiscal.valoricmsubs, notafiscal.valortotalprod, notafiscal.valorfrete, notafiscal.valorseguro, notafiscal.outrasdespesas, notafiscal.valoripi, notafiscal.valortotalnota, notafiscal.razaotrans, notafiscal.fretetrans, notafiscal.placatrans, notafiscal.cnpjtrans, notafiscal.enderecotrans, notafiscal.cidadetrans, notafiscal.uftrans, notafiscal.insctrans, notafiscal.qtdetrans, notafiscal.especietrans, notafiscal.marcatrans, notafiscal.numerotrans, notafiscal.pesobruto, notafiscal.pesoliquido, notafiscal.informacoes, notafiscal.infofisco,"
Sql = Sql & "vendas.cdproduto , vendas.quantidade, vendas.descricao, vendas.valorproduto,"
Sql = Sql & "vendas.subtotal, vendas.cliente, vendas.valordesconto, vendas.totaldesconto,"
Sql = Sql & "vendas.unidade, vendas.cst, vendas.ipi, vendas.icms FROM notafiscal INNER JOIN vendas ON notafiscal.codvenda = vendas.codvenda"

Db = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\" & "Sistema.mdb;Persist Security Info=False"

4   oRP.PaperOrientation = crLandscape
5   oRP.PaperSize = crPaperA4
6   oRP.UseIndexForSpeed = True
7   Screen.MousePointer = vbHourglass
8   Me.ZOrder (0)
9   Dim RST As ADODB.Recordset
10  Set RST = New ADODB.Recordset

11  RST.CursorLocation = adUseClient
    
12  RST.Open Sql, Db, 1, 3

  oRP.DiscardSavedData
    
  Set oRP = oAP.OpenReport("" & App.Path & "\" & NomeRelatorio & "")

16  oRP.Database.SetDataSource RST

17  CRViewer1.ReportSource = oRP
18  CRViewer1.PrintReport
19  CRViewer1.ViewReport
        
20  Do While CRViewer1.IsBusy
21      DoEvents
22  Loop
        
23  RST.Close
24  Set RST = Nothing
     
25  Screen.MousePointer = vbDefault
        
28  Exit Sub
29  Screen.MousePointer = vbDefault

End Sub