parameter prompt appears but shouldn't, cr 9 and vb .net 2002,

[Helen]

Here's the code: how do I prevent the parameter prompt from appearing during run time? Thanks

Imports CrystalDecisions.CrystalReports.Engin
Imports CrystalDecisions.Share

Public Class Form
Inherits System.Windows.Forms.For

#Region " Windows Form Designer generated code

Public Sub New(
MyBase.New(

'This call is required by the Windows Form Designer
InitializeComponent(

'Add any initialization after the InitializeComponent() cal

End Su

'Form overrides dispose to clean up the component list
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean
If disposing The
If Not (components Is Nothing) The
components.Dispose(
End I
End I
MyBase.Dispose(disposing
End Su

'Required by the Windows Form Designe
Private components As System.ComponentModel.IContaine

'NOTE: The following procedure is required by the Windows Form Designe
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor
Friend WithEvents CrystalReportViewer1 As CrystalDecisions.Windows.Forms.CrystalReportViewe
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent(
Me.CrystalReportViewer1 = New CrystalDecisions.Windows.Forms.CrystalReportViewer (
Me.SuspendLayout(

'CrystalReportViewer

Me.CrystalReportViewer1.ActiveViewIndex = -
Me.CrystalReportViewer1.Dock = System.Windows.Forms.DockStyle.Fil
Me.CrystalReportViewer1.Name = "CrystalReportViewer1
Me.CrystalReportViewer1.ReportSource = "C:...blahblah\CrystalReport1.rpt
Me.CrystalReportViewer1.Size = New System.Drawing.Size(312, 273
Me.CrystalReportViewer1.TabIndex =

'Form

Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13
Me.ClientSize = New System.Drawing.Size(312, 273
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.CrystalReportViewer1}
Me.Name = "Form1
Me.Text = "Form1
Me.ResumeLayout(False

End Su

#End Regio

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Loa

Dim Customername As Strin
Customername = "whateverabc
Dim paramFields As New ParameterFields(
Dim discreteVal As New ParameterDiscreteValue(
Dim paramField As New ParameterField(

paramField.ParameterFieldName = "?CustomerName
discreteVal.Value = Customernam
paramField.CurrentValues.Add(discreteVal
paramFields.Add(paramField

End Su

Private Sub CrystalReportViewer1_Load_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CrystalReportViewer1.Loa

End Su
End Class