Можно так:

Dim objCrystalViewer As New FrmCrystalViewer

Sub RRCheck(ByVal DS As DataSet)

Dim oRpt As New rptCheckPosting

With objCrystalViewer
.ReportData = DS
.CrystalReport = oRpt
.ShowDialog()
End With

End Sub