Private Sub cmdOpenReport_Click()
On Error GoTo errHandler

Dim Conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim Crystal As CRAXDRT.Application
Dim Report As CRAXDRT.Report
Dim strSQL As String
Dim strFileName As String

'Строка подключения
Set Conn = New ADODB.Connection
Conn.CursorLocation = adUseClient
Conn.ConnectionString = "Provider=SQLOLEDB.1;" _
    & "Persist Security Info=False;" _
    & "User ID=USERNAME;" _
    & "Password=PASSWORD;" _
    & "Initial Catalog=DATABASE;" _
    & "Data Source=SERVERNAME"
Conn.Open

'Открываем файл отчета
strFileName = "d:\App\test\PriceList.rpt"
Set Report = Nothing
Set Report = m_Application.OpenReport(strFileName,  1 )
Report.DiscardSavedData 

'Получаем данные из ХП
Set rs = New ADODB.Recordset
strSQL = "exec UP_RPT_ACC_ENT_GOODS_PRICE_LIST " _
   & "@PRICE_ID = '" & txtPriceID.Text & "' " _
   & ", @CURRENCY_ID = '" & txtCurrencyID.Text & "' "
rs.Open strSQL, Conn, adOpenStatic, adLockReadOnly

'Прикручиваем рекордсет к вьюверу на форме
Report.Database.SetDataSource rs
CRViewer1.ReportSource = Report
CRViewer1.ViewReport

'Выход
rs.Close
Set rs = Nothing
Set Conn = Nothing
Set Crystal = Nothing
Set Report = Nothing
Exit Sub

'Ошибки
errHandler:
    MsgBox Err.Description, vbExclamation
End Sub