futura use assim

'****Esta a a Função de impressão para o REPORT VIEW CONTROL da Seagate
Public Sub Imprimir(Relatorio As String)
    Set Report = Aplicacao.OpenReport(Relatorio) '***Setamos a Variavel do relatorio para pegar o Arquivo no Disco
    Report.SQLQueryString = "select * from categories where categoryid=" & txtCodigo.text
    CRViewer1.ReportSource = Report '*** Estamos assumindo que "CRViewer1" e o Nome do Controle no Form1
    CRViewer1.ViewReport            '*** O Relatorio será Visualizado entes de ser Impresso
End Sub

bom , adicionei o crviewer, e fiz referencia para a biblioteca:crystal reports 8.5 activex designer runtime library, ficou assim:

 

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 & "'"
 frmreport.CRViewer1.ReportSource = Report
 frmreport.CRViewer1.EnableExportButton = True
 frmreport.CRViewer1.EnableSelectExpertButton = True
 frmreport.CRViewer1.EnableGroupTree = False
 frmreport.CRViewer1.ViewReport
 Screen.MousePointer = vbDefault
 frmreport.Show 1

só que ele da um erro, referente a linha da query, ou seja, pelo que eu entendi, falta uma linha que indica onde fazer esta pesquisa, o que estaria faltando ?