اظهار بيانات في كريستال ريبورت بناء على قيمةمعلومة

السلام عليكم ، انا استخدم برنامج (VB.Net 2005) مع قاعدة بيانات (SQL server 2000)

1- عندي زر في فورم يفتح (Input Box) يكتب فيه المستخدم رقم الملف، بناء على رقم الملف هذا اطلع بيانات المريض من قاعدة البيانات على (Crystal Report)

وضعت الكود التالي ولكن البرامج يعلق:

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
		Dim mm1 As String
		mm1 = InputBox("h]og ")
		Dim conn As SqlClient.SqlConnection
		conn = New SqlClient.SqlConnection
		conn.ConnectionString = "initial catalog=archive;integrated security=SSPI;user id=sa"
		conn.Open()
		Dim cm As SqlClient.SqlCommand
		cm = New SqlClient.SqlCommand
		cm.Connection = conn
		cm.CommandText = "select* from caseTable Where caseNumber='" & Trim(mm1) & "'"
		cm.CommandType = CommandType.Text
		Dim read As SqlClient.SqlDataReader
		read = cm.ExecuteReader
		If Not read.Read Then
			MsgBox("jhjg")
			read.Close()
			conn.Close()
		Else
			Dim prr As New ParameterFields
			Dim pr As SqlParameter
			pr = New SqlParameter("@caseNumber", SqlDbType.VarChar)
			pr.Value = "11_1111_1"
			Dim pr1 As ParameterField
			pr1 = New ParameterField()
			pr1.ParameterFieldName = "@caseNumber"
			'Dim c As ParameterDiscreteValue
			'c=new ParameterDiscreteValue
			pr1.CurrentValues.Add(pr)
			prr.Add(pr1)
			crystalreportViewer1.parameterFieldinfo = prr

			crystalreportViewer1.visible = True
		End If
	End Sub

يرجى الالتزام بقواعد المشاركة - سؤال واحد بكل موضوع - كما يرجى اختيار عنوان واضح -