logon info crystal XI vb.net 2005

[vbdotnetboy]

here's my problem i'm trying to connect to a report that i didn't design and sitting on a different machine. i load the report and everything seems like it's going to work. i set all the tables and subreports. the report's connection is initial set to a ODBC. I'm trying to change it to MSSQL which looks like it's going to work but then it pops up asking for a password. i know the username and password are correct since i'm trying to connect to our development server and i'm connected through ent manager to the database's. what am i doing wrong? thanx in advance

here's my code

'Form with viewer
Dim rpt As New CrystalDecisions.CrystalReports.Engine.ReportDocument
                
                rpt.Load(list, CrystalDecisions.Shared.OpenReportMethod.OpenReportByTempCopy)
 
                'THIS WILL BE REPLACED WITH VALUES FROM CONFIGURATION
                Dim cnninfo As New CrystalDecisions.Shared.ConnectionInfo
                cnninfo.DatabaseName = "LTM"
                cnninfo.ServerName = "DEVSERVER"
                cnninfo.UserID = "sa"
                cnninfo.Password = "cssi"
                cnninfo.Type = CrystalDecisions.Shared.ConnectionInfoType.CRQE
                Dim cnninfo2 As New CrystalDecisions.Shared.ConnectionInfo
                cnninfo2.DatabaseName = "TWO"
                cnninfo2.ServerName = "DEVSERVER"
                cnninfo2.UserID = "sa"
                cnninfo2.Password = "cssi"
                cnninfo.Type = CrystalDecisions.Shared.ConnectionInfoType.CRQE
 
                GenericCrystalLogin.SetConnectionInfo(rpt, cnninfo, cnninfo2)

Following is the class where i'm trying to set everything

Imports CrystalDecisions
Imports CrystalDecisions.CrystalReports
Imports CrystalDecisions.Shared
Imports CrystalDecisions.CrystalReports.Engine
 
Public Class GenericCrystalLogin
 
    Public Shared Sub SetConnectionInfo(ByVal RptDoc As Engine.ReportDocument, _
        ByVal CnnInfo As [Shared].ConnectionInfo, ByVal CnnInfo2 As [Shared].ConnectionInfo)
 
        For Each t As CrystalDecisions.CrystalReports.Engine.Table In RptDoc.Database.Tables
            ApplyLogOnInfoToDatabaseTable(CnnInfo, t)
        Next
 
        For Each sec As CrystalDecisions.CrystalReports.Engine.Section In RptDoc.ReportDefinition.Sections
            For Each RptObj As CrystalDecisions.CrystalReports.Engine.ReportObject In sec.ReportObjects
                If RptObj.Kind = ReportObjectKind.SubreportObject Then
                    Dim SubRptObj As CrystalReports.Engine.SubreportObject = RptObj
                    Dim SubRpt As CrystalDecisions.CrystalReports.Engine.ReportDocument = SubRptObj.OpenSubreport(SubRptObj.SubreportName)
                    For Each tbl As CrystalDecisions.CrystalReports.Engine.Table In SubRpt.Database.Tables
                        ApplyLogOnInfoToDatabaseTable(CnnInfo, tbl)
                    Next
                End If
            Next
        Next
    End Sub
 
    Private Shared Sub ApplyLogOnInfoToDatabaseTable(ByVal CnnInfo As [Shared].ConnectionInfo, _
        ByVal aTable As Engine.Table)
        Try
            If Not String.IsNullOrEmpty(CnnInfo.DatabaseName) Then
                Dim tl As TableLogOnInfo = aTable.LogOnInfo
                tl.ConnectionInfo = CnnInfo
                aTable.LogOnInfo.ConnectionInfo.Attributes = CreateLogonProperties(CnnInfo.ServerName, CnnInfo.DatabaseName, CnnInfo.IntegratedSecurity)
                aTable.ApplyLogOnInfo(tl)
            End If
        Catch ex As Exception
            Throw ex
        End Try
    End Sub
 
    Private Shared Function CreateLogonProperties(ByVal server As String, ByVal db As String, ByVal integ_sec As Boolean) As DbConnectionAttributes
        Dim attrib As New DbConnectionAttributes
        attrib.Collection.Add(New NameValuePair2(DbConnectionAttributes.CONNINFO_DATABASE_DLL, "crdb_ado.dll"))
        attrib.Collection.Add(New NameValuePair2(DbConnectionAttributes.QE_DATABASE_NAME, db))
        attrib.Collection.Add(New NameValuePair2("QE_DatabaseType", "OLE DB (ADO)"))
        attrib.Collection.Add(New NameValuePair2(DbConnectionAttributes.QE_LOGON_PROPERTIES, CreateQELogonProperties(server, db, integ_sec)))
        attrib.Collection.Add(New NameValuePair2(DbConnectionAttributes.QE_SERVER_DESCRIPTION, server))
        attrib.Collection.Add(New NameValuePair2("QE_SQLDB", "True"))
        attrib.Collection.Add(New NameValuePair2(DbConnectionAttributes.CONNINFO_SSO_ENABLED, "False"))
        Return attrib
    End Function
 
    Private Shared Function CreateQELogonProperties(ByVal server As String, ByVal db As String, ByVal integ_sec As Boolean) As DbConnectionAttributes
        Dim attrib As New DbConnectionAttributes
        attrib.Collection.Add(New NameValuePair2("Connection Timeout", "15"))
        attrib.Collection.Add(New NameValuePair2("Data Source", server))
        attrib.Collection.Add(New NameValuePair2("General Timeout", "0"))
        attrib.Collection.Add(New NameValuePair2("Initial Catalog", db))
        attrib.Collection.Add(New NameValuePair2("Integrated Secruity", integ_sec.ToString))
        attrib.Collection.Add(New NameValuePair2("Local Identifier", "2057"))
        attrib.Collection.Add(New NameValuePair2("OLE DB Services", "-5"))
        attrib.Collection.Add(New NameValuePair2("Provider", "SQLOLEDB"))
        attrib.Collection.Add(New NameValuePair2("Tag with column collation when possible", "0"))
        attrib.Collection.Add(New NameValuePair2("Use DSN Default Properties", "False"))
        attrib.Collection.Add(New NameValuePair2("Use Encryption for Data", "0"))
        Return attrib
    End Function
End Class

[vbdotnetboy]

ok i found one mistake i wasn't using the second connection info for the subreport. however it's still won't connected. i have a different report that doesn't have a supreport and it works fine