Error:Logon Failed

[Asgorath]

crConnectionInfo = New ConnectionInfo
                    With crConnectionInfo
                        .ServerName = "Ares"
                        .DatabaseName = "DBName"
                        .UserID = "UserName"
                        .Password = "YourPass"
                    End With
                    crDatabase = crReportDocument.Database
                    crTables = crDatabase.Tables
                    For Each crTable In crTables
                        crTableLogOnInfo = crTable.LogOnInfo
                        crTableLogOnInfo.ConnectionInfo = crConnectionInfo
                        crTable.ApplyLogOnInfo(crTableLogOnInfo)
                    Next

Regards
Jorge