[VB.NET] حل مشكلة (لم يتم اغلاق الاتصال . حالة الاتصال الحالية هي مفتوح)

كود :
   Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click

        Try

            If tbItem.Text = "" Or tbPrice.Text = "" Then

                MsgBox("الرجاء ادخال اسم المنتج والسعر الخاص به")

                Return

            End If



            Dim cmd As OleDbCommand = con.CreateCommand

            con.Open()



            If frmitems.status = "Add" Then



                cmd.CommandText =

                "INSERT INTO ItemsInfo (Item,Category, Department, Price) VALUES (@Item,@Category,@Department,@Price)"

                cmd.Parameters.AddWithValue("Item", tbItem.Text)

                cmd.Parameters.AddWithValue("Category", cbCategory.SelectedItem)

                cmd.Parameters.AddWithValue("Department", cbDept.SelectedItem)

                cmd.Parameters.AddWithValue("Price", tbPrice.Text)

                cmd.ExecuteNonQuery()

                con.Close()

                frmitems.Load_Data()



                MsgBox("تم إضافة بيانات العنصر بنجاح", vbMsgBoxRight + MsgBoxStyle.Information, "جاري الحفظ")

                frmitems.Enabled = True



                Me.Close()

            End If



            If frmitems.status = "Edit" Then

                cmd.CommandText =

                "UPDATE ItemsInfo SET Item= @Item ,Category =@Category , Department=@Department , Price= @Price WHERE ID=  " & frmCommands.IDpos

                cmd.Parameters.AddWithValue("Item", tbItem.Text)

                cmd.Parameters.AddWithValue("Category", cbCategory.Text)

                cmd.Parameters.AddWithValue("Department", cbDept.Text)

                cmd.Parameters.AddWithValue("Price", tbPrice.Text)

                cmd.ExecuteNonQuery()

                con.Close()

                frmitems.Load_Data()

                MsgBox("تم تعديل بيانات العنصر بنجاح", vbMsgBoxRight + MsgBoxStyle.Information, "جاري الحفظ")

                frmitems.Enabled = True

                Me.Close()

            End If



        Catch ex As Exception

            MsgBox(ex.Message)

        End Try



    End Sub