Claro que se puede. Puedes usar algo asi
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim oForm As New reporte
oForm.SetParameterValue("caja", TextBox_caja.Text)
Me.CrystalReportViewer1.ReportSource = oForm
End Sub
o asi
Private Sub Form_Load()
Screen.MousePointer = vbHourglass
Report.Database.Tables(1).Location = caminodemibase
Report.Database.Tables(2).Location = caminodemibase
Report.Database.Tables(3).Location = caminodemibase
Report.ParameterFields(1).AddCurrentValue (Val(Form2.text1.text))
Report.ParameterFields(2).AddCurrentValue ((Form2.text2.text))
Report.ParameterFields(3).AddCurrentValue ((Form2.text3.text))
CRViewer91.ReportSource = Report
CRViewer91.ViewReport
Screen.MousePointer = vbDefault
End Sub
Tambien lee esto:
http://ar.answers.yahoo.com/question...2065811AA6toTt