Crystal report popping up login credential always

Private Sub setConn(ByRef rpt As CrystalDecisions.CrystalReports.Engine.ReportDocument)
        Dim crtableLogoninfos As New TableLogOnInfos()
        Dim crtableLogoninfo As New TableLogOnInfo()
        Dim crConnectionInfo As New ConnectionInfo()
        Dim CrTables As Tables
        Dim CrTable As Table

       

        Dim crReportDocument As CrystalDecisions.CrystalReports.Engine.ReportDocument
        crReportDocument = rpt



        'Set the ConnectionInfo properties for logging on to
        'the Database

        'If you are using ODBC, this should be the
        'DSN name NOT the physical server name. If
        'you are NOT using ODBC, this should be the
        'physical server name

        With crConnectionInfo
            .ServerName = "servername"

            'If you are connecting to Oracle there is no
            'DatabaseName. Use an empty string.
            'For example, .DatabaseName = ""

            .DatabaseName = "dbaname"
            .UserID = "username"
            .Password = "password"
        End With

        'This code works for both user tables and stored
        'procedures. Set the CrTables to the Tables collection
        'of the report

        CrTables = rpt.Database.Tables


        'Loop through each table in the report and apply the
        'LogonInfo information

        For Each CrTable In CrTables

            crtableLogoninfo = CrTable.LogOnInfo
            crtableLogoninfo.ConnectionInfo = crConnectionInfo
            CrTable.ApplyLogOnInfo(crtableLogoninfo)

            If LCase(CrTable.Location) = "command" Then
                'CrTable.Location = CrTable.Location
                Exit For
            End If
            'If your DatabaseName is changing at runtime, specify
            'the table location.
            'For example, when you are reporting off of a
            'Northwind database on SQL server you
            'should have the following line of code:

            CrTable.Location = "databasename.dbo." & CrTable.Location.Substring(CrTable.Location.LastIndexOf(".") + 1)
        Next

    End Sub

hope this will help.

UPDATE SM: Added pre tags. Though Answer looks fine but would had been complete if replier adds some explanation to what code has been posted/what was the enquirer missing. :thumbsup:



From HS:

from where u r calling report there u need to declare 1 variable like this

ByVal rpt As CrystalDecisions.CrystalReports.Engine.ReportDocument

after that follow all the steps u were doing but before dat call my cade which i have given to u like this

setConn(rpt)

it will make all the connection to ur report with table.

Just try it.

I am damn sure it will work. coz for ma all the projects its working.

best luck