Private Sub btnExport_Click(ByVal sender As System.Object, ByVal e As _
    System.EventArgs) Handles btnExport.Click
 
        rptDoc.FileName = "..\..\Reports\repTest.rpt"
 
        Dim usr As String = "DataReader"                   
        Dim pwd As String = "123456"                 
        Dim svr As String = "sql"          
        Dim db As String = "testdb"
 
        rptDoc.SetDatabaseLogon(usr, pwd, svr, db)
 
 
        rptDoc.ExportToDisk(CrystalDecisions.Shared.ExportFormatType.RichText, _
          "TestExport.rtf")
 
    End Sub

Gruss
VIVAX

}
}
}

1:0 für Visual Basic.NET