Error:Logon Failed

[haihems]

Hi,
I'm Using DAO to connect CR & Excel file.
From Vb,I have to pass file location, for that I'm using the following code...

crDoc.Load(RptName)
        crTables = crDoc.Database.Tables
        For Each crTable In crTables
            crTable.Location = BookLocation
        Next
 
        c = crDoc.Subreports.Count
        For i = 0 To c - 1
            SubDoc = crDoc.Subreports.Item(i)
            SubTables = SubDoc.Database.Tables
            For Each SubTable In SubTables
                SubTable.Location = BookLocation
            Next
        Next

It is working fine...Now I want to protect the Excel file with password..
How can i pass the password to the Crystal Report..any idea??
I tried as follows...but got error...

Dim myLogin As TableLogOnInfo
 
            For Each crTable In crTables
                myLogin = crTable.LogOnInfo
 
                With myLogin.ConnectionInfo
                    .DatabaseName = BookLocation
                    .UserID = "Admin"
                End With
 
                crTable.ApplyLogOnInfo(myLogin)
            Next

BUt it gives error as :
Logon failed
Unable to connect: incorrect logon parameters

And, I read somewhere that, if DAO is used for coneection then the ApplyLogonInfo method will not work..Is it True?...

I'm struck with this problem...i've to finish this by this week...Help me,quickly

[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