Dim rpt As New CrystalDecisions.CrystalReports.Engine.ReportDocument
        rpt.Load("reportdatei.rpt")
        Dim loginfo As New CrystalDecisions.Shared.TableLogOnInfo
        loginfo = rpt.Database.Tables.Item("Tabellenname").LogOnInfo
        With loginfo
            .ConnectionInfo.ServerName = "SERVERNAME"
            .ConnectionInfo.DatabaseName = "Datenbankname"
            .ConnectionInfo.UserID = "Benutzername"
            .ConnectionInfo.Password = "Passwort"
        End With
        rpt.Database.Tables.Item("Tabellenname").ApplyLogOnInfo(loginfo)
        CrystalReportViewer.ReportSource = rpt

N I C H T S - I S T - S O - W I E - E S - S C H E I N T