'Put user code to initialize the page here Dim logOnInfo As New CrystalDecisions.Shared.TableLogOnInfo() Dim i As Integer ' Loop through every table in the report. For i = 0 To report.Database.Tables.Count - 1 <== Error on report ' Set the connection information for current table. logOnInfo.ConnectionInfo.ServerName = "cqi-termserv" logOnInfo.ConnectionInfo.DatabaseName = "ctore" logOnInfo.ConnectionInfo.UserID = "ctore" logOnInfo.ConnectionInfo.Password = "cqi$$" report.Database.Tables.Item(i).ApplyLogOnInfo(logOnInfo) <==Error on report Next