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

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

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 رو میده و میاد تو این خط ایراد میگیره:
http://i34.tinypic.com/19tvtf.jpg

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

http://i33.tinypic.com/15zpl0.jpg
از دوستان خواهش می کنم اگه راهی بذهنشون میاد بهم بگن.
یه کم حیاتیه.
ممنون از همتون.

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

If Conn.State=1 Then Conn.Close

Conn.open ""

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