این پیغام خطا از چیه ؟ operation is not allowed when the object is open

[davood59]

سلام عزیزان،
من کد اتصال رو در یک ماژول نوشتم بدین صورت :

Public Conn As New Adodb.Connection
Public Sub ConnectDB()
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\book.mdb;Persist Security Info=False"
Exit Sub
End Sub

اولاً میخواستم ببینم اینطور نوشتن در ماژول درسته یا نه؟
ثانیاً وقتی که اطلاعات رو در دفعه اول درج می کنم درست و صحیح توی بانک ذخیره می کنه ولی دفعه دوم (پس از باز شدن مجدد فرم ورود اطلاعات) خطای operation is not allowed when the object is open رو میده و میاد تو این خط ایراد میگیره:


سورس برنامه هم که به اینصورته:


از دوستان خواهش می کنم اگه راهی بذهنشون میاد بهم بگن.
یه کم حیاتیه.
ممنون از همتون.

[mpmsoft]

قبلش یکبار کانکشن رو ببند شاید باز بوده

If Conn.State=1 Then Conn.Close

Conn.open ""

[davood59]

آقا mpmsoft دستت درد نکنه.
مشکلم با کدی که گفتید حل شد.
خیلی خیلی ممنونم.
موفق باشید.