Private Sub LogonToReport(ByVal server As String, ByVal database As String, ByVal ID As String, ByVal password As String)
        Dim logonInfo As New TableLogOnInfo
        Dim table As Table

        ' Set the logon information for each table.
        For Each table In Me.Database.Tables
            ' Get the TableLogOnInfo object.
            logonInfo = table.LogOnInfo
            ' Set the server or ODBC data source name, database name, 
            ' user ID, and password.
            logonInfo.ConnectionInfo.ServerName = server
            logonInfo.ConnectionInfo.DatabaseName = database
            logonInfo.ConnectionInfo.UserID = ID
            logonInfo.ConnectionInfo.Password = password
            ' Apply the connection information to the table.
            table.ApplyLogOnInfo(logonInfo)
        Next table
    End Sub

    Public Overloads Overrides Sub Load()
        LogonToReport(myserver, mydatabase, myuser, mypassword) ' у меня все это задано через переменные
        
    End Sub