نحوه استفاده از Query نوع Make Table در VB

سلام به همگی دوستان

بچه ها من یک Query در Access ساختم از نوع Make Table و از اون در VB استفاده کردم یعنی با اجرای اون در VB می خوام از Query من یک table بسازه اما متاسفانه در هنگام اجرا این پیغام خطا رو می ده.
"Operation is not allowed when the object is closed"
بار دوم که اجرا می کنم چون با وجود بروز خطا این جدول رو ایجاد کرده پیغام خطایی به صورت زیر می دهد
.table "...." already exists
جالب اینجاست که من در vb نمی تونم این error را handle کنم!
با وجود اینکه در کد یرنامم نوشتم On error resume next ولی باز هم این پیغام خطا را می دهد.
کمک!

لطفا کمک کنید خیلی ضروریه.

خطای اولی به خاطر باز نبودن connection است.

myRs.open

خطای بعدی هم ربطی به هندل نداره شما باید در یکی از ایونت های کنترلی که برای بانکتون ساختید(اگه اشتباه نکنم adodc استفاده کردید) ایونتی است به نام error... در اون ایونت مقدار آرگومان fcancelDisplay رو برابر true قرار بده تا دیگه این خطاها به کاربر نمایش داده نشند.

نقل قول:

---

نوشته شده توسط meh_secure

خطای اولی به خاطر باز نبودن connection است.

myRs.open

خطای بعدی هم ربطی به هندل نداره شما باید در یکی از ایونت های کنترلی که برای بانکتون ساختید(اگه اشتباه نکنم adodc استفاده کردید) ایونتی است به نام error... در اون ایونت مقدار آرگومان fcancelDisplay رو برابر true قرار بده تا دیگه این خطاها به کاربر نمایش داده نشند.

---

مرسی از پاسختون .
من کدی که نوشتم رو اینجا قرار میدم لطفا کمکم کنید و اگه زحمتی نیست دقیقا بگید چیکار کنم.

CnnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & GetProfileString("DataBasePath", "C:\Program Files\Keico HighTech\PLAT64T", "PATH", App.Path & "\ FunctionKey.ini") & "\" & GetProfileString("DataBasePath", "ACU301.MDB", "PATH", App.Path & "\ FunctionKey.ini") & ";Persist Security Info=False;"

sql= "SELECT DISTINCT History.UserID, History.EventDate, Min(History.EventTime) AS MinOfEventTime, History.FuncCode INTO Tbl_QueryEnter From History GROUP BY History.UserID, History.EventDate, History.FuncCode HAVING (((History.EventDate)=#11/5/2005#) AND ((History.FuncCode)='0'))"

With Ado
.ConnectionString = CnnStr
.CommandType = adCmdUnknown
.Mode = adModeReadWrite
.CursorType = adOpenDynamic
.RecordSource = sql
.CacheSize = 1
.ConnectionTimeout = 1000
.Refresh
End With

آقای meh_Secure

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

خب خدارو شکر...