Dim rptDoc As New ReportDocument
 
        rptDoc.FileName = "D:\Fachrichtung.rpt"
 
        Dim usr As String = "sa"
        Dim pwd As String = "strenggeheim"
        Dim svr As String = "LOCALHOST"
        Dim db As String = "FFEZ"
 
        rptDoc.SetDatabaseLogon(usr, pwd, svr, db)
 
        rptDoc.ExportToDisk( _
          CrystalDecisions.Shared.ExportFormatType.PortableDocFormat, _
          "TestExport.pdf")
 
 
    End Sub

Viele Grüße
Ingo Schick