[0theghost0]

توجد لدي مشكلة بسيطة

اثناء عملية البحث من تاريخ لتاريخ معين عندما اختار اكثر من مرة لتاريخ حتى يقوم بإعطائي المبلغ الذي تم كسبه في هذة المدة البرنامج يغلق وهذا الخطا يظهر لي

كود :

An unhandled exception of type 'System.InvalidOperationException' occurred in System.Data.dll

Additional information: The connection was not closed. The connection's current state is open.

الكود

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim cmd As New OleDbCommand("Select * From Rent Where Rent_Date >= @Date1 and Rent_Date <= @Date2", con)
       cmd.Parameters.Add("@Date1", OleDbType.Date).Value = DateTimePicker1.Value
       cmd.Parameters.Add("@Date2", OleDbType.Date).Value = DateTimePicker2.Value

       Dim da As New OleDbDataAdapter(cmd)
       con.Open()
       Dim dt As New DataTable
       da.Fill(dt)

       Me.DataGridView1.DataSource = dt

       Dim txtTotal As Integer
       For Each rw As DataGridViewRow In DataGridView1.Rows
           txtTotal += CInt(rw.Cells(8).Value)
       Next

       Label4.Text = txtTotal
   End Sub

مكان الخطأ

كود :

con.Open()