Как правильно запустить отчет Crystal Report из Basic

[adogg]

Помогите новичку. Есть отчет в .rpt файле. Нужно, чтобы по нажатию кнопки на моей форме он запускался для просмотра. Нашел след. код:

Dim Application As CRAXDRT.Application
Dim report As CRAXDRT.report

Private Sub button_Click()
Application.LogOnServer "p2sodbc.dll", "server_name", "database_name", "user", "password"
Set report = Application.OpenReport("C:\temp\reports\DivisionTree.rpt")
Me.CRViewer1.ReportSource = report
Me.CRViewer1.ViewReport
End Sub

Private Sub Form_Load()
Set Application = CreateObject("CrystalRuntime.Application")
Set report = Nothing
End Sub

По нажатию кнопки ругается: Server has not yet been opened.
Объясните, как правильно делаются такие вещи.
Dev. tools: Visual Basic 6, Crystal Reports 8.5 Dev, MS SQL Server

[adogg]

Значится так: код работает, но при условии, что "server_name", "database_name", "user", "password" совпадут с теми, что остались в отчете.
Следовательно вопрос теперь стоит след. образом: какие манипуляции нужно сделать для того, что бы отчет был универсальным. Т.е. таблицы из которых он берет данные могут находиться в базах данных с разными именами и на на разных серверах.