Dim crReportDocument As New CustReport() Dim crTableLogOnInfo As New TableLogOnInfo() Dim crConnectionInfo As New ConnectionInfo() Dim crDatabase As CrystalDecisions.CrystalReports.Engine.Database Dim crTables As CrystalDecisions.CrystalReports.Engine.Tables Dim crtable As CrystalDecisions.CrystalReports.Engine.Table Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load crConnectionInfo.ServerName = "MyServer" crConnectionInfo.DatabaseName = "MyDatabase" crConnectionInfo.UserID = "sa" crConnectionInfo.Password = "" crDatabase = crReportDocument.Database crTables = crDatabase.tables For Each crtable In crTables crTableLogOnInfo = crtable.LogOnInfo crTableLogOnInfo.ConnectionInfo = crConnectionInfo crtable.ApplyLogOnInfo(crTableLogOnInfo) Next Me.crvReport.ReportSource = crReportDocument>Is there a way to automate logging on to a SQL server.