connect to server at run time(CR9,Sql 2000,Vb6)

[lucia]

I have a report connected to server1 at design time. Now I need use this report on different servers. So, I want to set connection to different server(server2, server 3) at run time but I failured.
Here is what I have done.

Dim strSelection As String
'CR9 stuff...
Dim crReport As New CRAXDRT.Report
Dim crApp As New CRAXDRT.Application

strReport = gsTrak & "\Reports\Summary_Report.rpt"
strSelection = "{Summary_Reason.RS_Date} = Date (strDate)
Set crReport = crApp.OpenReport(strReport)
crReport.RecordSelectionFormula = strSelection
crReport.Database.LogOnServer "p2ssql.dll", "Server2", "Trck", "sa", ""
If optPrint(0).value = True Then
' Print to screen

frmCR9Report.ReportFile = strReport
frmCR9Report.SelectionCriteria = strSelection
frmCR9Report.CRV9.ReportSource = crReport
frmCR9Report.CRV9.ViewReport
frmCR9Report.CRV9.DisplayGroupTree = False
frmCR9Report.Show
Else
' Print to printer
crReport.PrintOut False
End If



The red line is newly added. but it didn't do anything. Can anyone help me out? Thanks a lot in advance.

[Hack]

Does it produce an error or just not do anything at all?

[lucia]

Does it produce an error or just not do anything at all?
Thanks, Hack.
No error, and do nothing.

[Hack]

Given that I don't know what p2ssql.dll does (I can only guess), I really can't point to anything specific.

You said you wanted to try different servers....is the result that same no matter what server you try?

[lucia]

Given that I don't know what p2ssql.dll does (I can only guess), I really can't point to anything specific.

You said you wanted to try different servers....is the result that same no matter what server you try?

You are right. the result is the same no matter what server I connected.