Question about assigning SQL tables logon info for Crystal Reports XI

FWIW, I was given the following code by Business Objects.  It works:

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        'Put user code to initialize the page here

        ' Declare an instance of the strongly-typed report
        ' (which is essentially the same as declaring a
        ' ReportDocument object).
        Dim crReportDocument As NotMetSummary_PatArr   '(name of the report created by the developer)
        crReportDocument = New NotMetSummary_PatArr

        ' Declare string variables to hold the connectivity
        ' information that we will retrieve and use later.
        Dim ServerName As String
        Dim UserID As String
        Dim Password As String
        Dim DatabaseName As String

        ' Read in the connectivity values that we stored in
        ' session in WebForm1.
        ServerName = "(local)"  '(I'm developing on my local machine)
        UserID = "****"
        Password = "****"
        DatabaseName = "NorthWind"

        ' Call the Logon function passing in our ReportDocument
        ' and connectivity values.
        Logon(crReportDocument, ServerName, DatabaseName, UserID, Password)

        ' Set the Crystal Report Viewer report source to the
        ' ReportDocument we declared earlier.
        Me.CrystalReportViewer1.ReportSource = crReportDocument


    End Sub

    Private Function ApplyLogon(ByVal cr As CrystalDecisions.CrystalReports.Engine.ReportDocument, ByVal ci As CrystalDecisions.Shared.ConnectionInfo) As Boolean
        ' This function is called by the "Logon" function
        ' It loops through the report tables and applies
        ' the connection information to each table.

        ' Declare the TableLogOnInfo object and a table object for use later.
        Dim li As CrystalDecisions.Shared.TableLogOnInfo
        Dim tbl As CrystalDecisions.CrystalReports.Engine.Table

        ' For each table apply connection info.
        For Each tbl In cr.Database.Tables
            li = tbl.LogOnInfo
            li.ConnectionInfo = ci
            tbl.ApplyLogOnInfo(li)

            ' Verify that the logon was successful.
            ' If TestConnectivity returns false, correct table locations.
            If (tbl.TestConnectivity()) Then
                ' If there is a "." in the location then remove the
                ' beginning of the fully qualified location.
                ' Example "dbo.northwind.customers" would become
                ' "customers".
                If (tbl.Location.IndexOf(".") > 0) Then
                    tbl.Location = tbl.Location.Substring(tbl.Location.LastIndexOf(".") + 1)
                Else
                    ' If the location is not returning as a fully
                    ' qualified location we still set it to tbl.location
                    ' because Crystal Reports 9 installed on top of .NET
                    ' can *store* fully qualified names but will only *return*
                    ' the table name itself.
                    tbl.Location = tbl.Location
                End If
            Else
                Return False
            End If
        Next

        Return True
    End Function

    ' The Logon method iterates through all tables.
    Private Function Logon(ByVal cr As CrystalDecisions.CrystalReports.Engine.ReportDocument, _
        ByVal server As String, _
        ByVal database As String, _
        ByVal user_id As String, _
        ByVal password As String) As Boolean

        ' Declare and populate a new connection info object.
        Dim ci As New CrystalDecisions.Shared.ConnectionInfo
        With ci
            .ServerName = "(local)"
            .DatabaseName = "****"
            .UserID = "****"
            .Password = "****"
        End With

        ' If the ApplyLogon function fails then return a false for this function.
        ' We are applying logon information to the main report at this stage.
        If (Not ApplyLogon(cr, ci)) Then
            Return False
        End If

        ' Declare both a report object as well as a subreport object.
        Dim obj As CrystalDecisions.CrystalReports.Engine.ReportObject
        Dim subobj As CrystalDecisions.CrystalReports.Engine.SubreportObject

        ' Loop through all the report objects and locate subreports.
        ' If a subreport is found then apply logon information to
        ' the subreport.
        For Each obj In cr.ReportDefinition.ReportObjects
            If (obj.Kind = CrystalDecisions.[Shared].ReportObjectKind.SubreportObject) Then
                subobj = CType(obj, CrystalDecisions.CrystalReports.Engine.SubreportObject)
                If (Not ApplyLogon(cr.OpenSubreport(subobj.SubreportName), ci)) Then
                    Return False
                End If
            End If
        Next

        ' Return True if the code runs to this stage.
        Return True

    End Function