Me.AccessrightTableAdapter1.Fill(Me.AAADataSet.accessright) Dim crReport As ReportDocument Dim repDB As Database = crReport.Database Dim repTbls As Tables = repDB.Tables Dim repTbl As Table repTbl = repTbls(0) Dim logonInfo As TableLogOnInfo = repTbl.LogOnInfo logonInfo.ConnectionInfo.ServerName = "AAA logonInfo.ConnectionInfo.DatabaseName = "A" logonInfo.ConnectionInfo.UserID = "aaa" logonInfo.ConnectionInfo.Password = "aaa" repTbl.ApplyLogOnInfo(logonInfo) crReport.SetDataSource(AAADataSet) CrystalReportViewer1.ReportSource = crReport