VB.NET:
Private Sub BPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BPrint.Click
Dim frm As New FrmPrintReport 'reports
Dim cr As New CRepResponsable
cr.SetParameterValue(0, Val(Me.TBAccountNumber.Text))'integer
cr.SetParameterValue(1, Me.TBAccountNumber.Text)'string
cr.SetParameterValue(2, vbNull) 'integer
cr.SetParameterValue(3, vbNull) 'string
frm.CrystalReportViewer.ReportSource = cr
frm.MdiParent = Me.MdiParent
frm.Show()
End Sub

but if I put
VB.NET:
cr.SetParameterValue(2, Val(Me.TBSubAccount.Text))) 'integer 'not null
cr.SetParameterValue(3, Me.TBSubAccount.Text) 'string 'not null
here is the select expert formula (CR):
VB.NET:
{CUSTOMERS.SUB_ACCOUNT_NUMBER} = {?SubAccount_String} and
{ecole.serial} = {?AccountNumber} and
{CUSTOMERS.ACCOUNT_NUMBER} = {?AccountNumber_String} and
{ecole.sub_account} = {?SubAccount}