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

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.

Code:

---

    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.

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

Quote:

---

Originally Posted by Hack

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

---

Thanks, Hack.
No error, and do nothing.

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?

Quote:

---

Originally Posted by 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?

---

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