Dim
OBJrpt As New MeuRPT ( OBJrpt = instancia objeto / MeuRPT = Arquivo .rpt)
OBJrpt.RecordSelectionFormula = "{minhafórmula}= meuparametro " ( meuparametro = passa o parametro *Observe as regras de concatenação do vb)
MeuCrystalReportViewer.ReportSource = OBJrpt
Espero que ajude, abraço.