o código abaixo funciona normalmente, mas só se estiver na maquina local, pois se eu jogar em outro micro na rede, e puxar por um atalho, da erro de acesso ao banco de dados, mesmo estando exe,rpt e mdb, na mesma pasta. O que falta no código ? e também, como ficaria para um bd com senha ?

 

aviso = InputBox("1-)Clientes  2-)Fornecedores", "Escolha sua opção")
 If aviso = Cancel Then Exit Sub
 Dim wstipo As String
 If aviso = 1 Then
  wstipo = "Cliente"
 Else
  wstipo = "Fornecedor"
 End If
 
Screen.MousePointer = vbHourglass
 Dim Aplicacao As New CRAXDRT.Application
 Dim Report As New CRAXDRT.Report
 Set Report = Aplicacao.OpenReport(App.Path & "listacli.rpt")
 Report.DiscardSavedData
 Report.SQLQueryString = " select * from clientes where tipo ='" & wstipo & "'"
 Report.PrinterSetup (0)
 frmreport.CRViewer91.ReportSource = Report
 frmreport.CRViewer91.EnableExportButton = True
 frmreport.CRViewer91.EnableSelectExpertButton = True
 frmreport.CRViewer91.EnableGroupTree = False
 frmreport.CRViewer91.ViewReport
 Screen.MousePointer = vbDefault
 frmreport.Show 1

 

Voce colocou no Rpt no Menu Database -- Set Datasource Loucation -- o local dos dados como same as report?

coloquei sim, só que no meu caso, o rpt é desenvolvido no crystal 8.5, então seria "SET LOCATION", mas apesar de criar o rpt no 8.5, no vb referencio o 9.