got it almost working, passes the parameters but the second page does not show any data
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' CrystalReportViewer1.SelectionFormula = "{Customer.Country} = " & Chr(34) & TextBox1().Text & Chr(34)
Dim paramfield1 As New CrystalDecisions.Shared.ParameterField
Dim paramfields As New CrystalDecisions.Shared.ParameterFields
Dim discreteval1 As New CrystalDecisions.Shared.ParameterDiscreteValue
paramfield1.ParameterFieldName = "Test1"
discreteval1.Value = TextBox1.Text
paramfield1.CurrentValues.Add(discreteval1)
paramfields.Add(paramfield1)
With CrystalReportViewer1
.ParameterFieldInfo = paramfields
.ReportSource = "C:\testpath\test.rpt"
.Visible = True
End With
End Sub
End Class