مشكلة فى كود البحث - نسخة قابلة للطباعة

PHP كود :
Try
            Dim saveinto As New OleDb.OleDbCommand
            Dim constr As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & Application.StartupPath & "\db.mdb"
            Dim conn As New OleDb.OleDbConnection(constr)
            Dim DataSet1 As New DataSet
            Dim SQLstr As String
            SQLstr = "SELECT * From factor Where factor_name=('" & TextBox10.Text & "')"
            conn.Open()
            Dim dataadapter1 As New OleDb.OleDbDataAdapter(SQLstr, conn)
            dataadapter1.Fill(DataSet1, "factor")
            If Me.BindingContext(DataSet1, "factor").Count = 0 Then
                MsgBox("No Result ! .")
                conn.Close()
            Else
                TextBox1.DataBindings.Add("text", DataSet1, "factor.factor_num")
                TextBox2.DataBindings.Add("text", DataSet1, "factor.factor_name")
                TextBox3.DataBindings.Add("text", DataSet1, "factor.factor_job")
                ComboBox1.DataBindings.Add("text", DataSet1, "factor.factor_member")
                ComboBox2.DataBindings.Add("text", DataSet1, "factor.factor_sector")
                ComboBox3.DataBindings.Add("text", DataSet1, "factor.factor_management")
                ComboBox4.DataBindings.Add("text", DataSet1, "factor.factor_mgal")
                ComboBox5.DataBindings.Add("text", DataSet1, "factor.factor_fe2a")

                TextBox4.DataBindings.Add("text", DataSet1, "factor.factor_daora_name")
                TextBox6.DataBindings.Add("text", DataSet1, "factor.factor_daora_taklefa")
                TextBox5.DataBindings.Add("text", DataSet1, "factor.factor_daora_moda")
                ComboBox6.DataBindings.Add("text", DataSet1, "factor.factor_daora_no3")
                ComboBox7.DataBindings.Add("text", DataSet1, "factor.factor_daora_mkan1")
                ComboBox8.DataBindings.Add("text", DataSet1, "factor.factor_daora_mkan2")

                ComboBox9.DataBindings.Add("text", DataSet1, "factor.factor_derasat_no3")
                TextBox7.DataBindings.Add("text", DataSet1, "factor.factor_derasat_wasf")
                TextBox8.DataBindings.Add("text", DataSet1, "factor.factor_derasat_kolea")
                TextBox9.DataBindings.Add("text", DataSet1, "factor.factor_derasat_gam3a")

                Me.TextBox1.Enabled = True
                Me.TextBox2.Enabled = True
                Me.TextBox3.Enabled = True
                Me.TextBox4.Enabled = True
                Me.TextBox5.Enabled = True
                Me.TextBox6.Enabled = True
                Me.TextBox7.Enabled = True
                Me.TextBox8.Enabled = True
                Me.TextBox9.Enabled = True

                Me.ComboBox1.Enabled = True
                Me.ComboBox2.Enabled = True
                Me.ComboBox3.Enabled = True
                Me.ComboBox4.Enabled = True
                Me.ComboBox5.Enabled = True
                Me.ComboBox6.Enabled = True
                Me.ComboBox7.Enabled = True
                Me.ComboBox8.Enabled = True
                Me.ComboBox9.Enabled = True

                Me.Button1.Enabled = True
            End If
        Catch ex As Exception

        End Try