ماهو هذا الخطأ : 'Invalid attempt to call NextResult when reader is closed.'

كود :

Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click

        'On Error Resume Next

        DataAdapter2 = New OleDbDataAdapter("Select * From JBea2 Where JBeaNumf like " & TJBeaNumF.Text & "", conne)

        DataSet2.Clear()

        DataAdapter2.Fill(DataSet2, "JBea2")

        DataGridView1.DataSource = DataSet2

        DataGridView1.DataMember = "JBea2"

        DataGridView1.Refresh()

        DataGridView1.RefreshEdit()

        DG1()



        ' On Error Resume Next

        TJBeaNumS.DataBindings.Add("Text", DataSet2, "JBea2.JBeaNumS")

        TJBeaNameS.DataBindings.Add("Text", DataSet2, "JBea2.JBeaNameS")

        TJBeaAdd.DataBindings.Add("Text", DataSet2, "JBea2.JBeaAdd")

        CJBeaWhda.DataBindings.Add("Text", DataSet2, "JBea2.JBeaWhda")

        TJBeaSar.DataBindings.Add("Text", DataSet2, "JBea2.JBeaSar")

        TJBeaEjmaly.DataBindings.Add("Text", DataSet2, "JBea2.JBeaEjmaly")

        TextBox2.DataBindings.Add("Text", DataSet2, "JBea2.JBeanumf")

           On Error Resume Next'





        DataAdapter1 = New OleDbDataAdapter("Select * From JBea Where JBeaNumf like " & TJBeaNumF.Text & "", conne)

        DataSet1.Clear()

        DataAdapter1.Fill(DataSet1, "jbea")

        TJBeaNumF.DataBindings.Add("Text", DataSet1, "JBea.JBeanumf")

        CJBeaNameAmeel.DataBindings.Add("Text", DataSet1, "JBea.JBeaNameAmeel")

        DJBeaDate.DataBindings.Add("Text", DataSet1, "JBea.JBeaDate")

        CJBeaDfa.DataBindings.Add("Text", DataSet1, "JBea.JBeaDfa")

        TJBeaNote.DataBindings.Add("Text", DataSet1, "JBea.JBeaNote")

        TJBeaEjmalyF.DataBindings.Add("Text", DataSet1, "JBea.JBeaEjmalyf")

        adds()

    End Sub

كود :

Private Sub DG1()

        DataGridView1.Columns(0).HeaderText = " بارا كود"

        DataGridView1.Columns(1).HeaderText = "أسم الصنف"

        DataGridView1.Columns(2).HeaderText = "الكمية"

        DataGridView1.Columns(3).HeaderText = " الوحدة"

        DataGridView1.Columns(4).HeaderText = "السعر "

        DataGridView1.Columns(5).HeaderText = " الاجمالي"



        '-------

        '==========

        DataGridView1.Columns(6).Visible = False

        '-----

        DataGridView1.Columns(0).Width = 100

        DataGridView1.Columns(1).Width = 250

        DataGridView1.Columns(2).Width = 100

        DataGridView1.Columns(3).Width = 100

        DataGridView1.Columns(4).Width = 100

        DataGridView1.Columns(5).Width = 100





        '''''========

        '      تلوين الداتا جريد

        DataGridView1.ColumnHeadersDefaultCellStyle.Alignment =

            DataGridViewContentAlignment.MiddleCenter

        DataGridView1.MultiSelect = False

        With Me.DataGridView1

            .RowsDefaultCellStyle.BackColor = Color.Bisque

            .AlternatingRowsDefaultCellStyle.BackColor = Color.Beige

        End With

    End Sub



  Private Sub adds()

        Dim cmd2 As New OleDbCommand

        cmd2.CommandType = CommandType.Text

        cmd2.Connection = conne

        cmd2.CommandText = " select count (jbeanumf) from [JBea] "

        ' cmd2.CommandText = "select count(jbeanumf) from [JBea]   " ' كود إيجاد عدد السجلات

        conne.Open()

        Dim a As Integer = cmd2.ExecuteScalar

        conne.Close()

        TextBox1.Text = a

    End Sub