Dim logOnInfo As New CrystalDecisions.Shared.TableLogOnInfo() Dim i As Integer For i = 0 To report.Database.Tables.Count - 1 <== Error on report ' Set the connection information for current table. logOnInfo.ConnectionInfo.ServerName = "server" logOnInfo.ConnectionInfo.DatabaseName = "DbName" logOnInfo.ConnectionInfo.UserID = "UserID" logOnInfo.ConnectionInfo.Password = "PW" report.Database.Tables.Item(i).ApplyLogOnInfo(logOnInfo) <==Error on report nextSecond, you might want to consider designing your reports against either typed datsets or schema definitions.