كيف يمكن تغير الكودVB اكسس الى الفجول بيسك

يسعد الله مساكم

اخواني عدني سؤال بسيط

هذا كود

Private Sub امر1_Click()
Dim msg, style, title, result
msg = "="
style = vbYesNo
title = " ="
result = msgbox(msg, style, title)
If result = vbYes Then
docmd.SetWarnings False
docmd.RunSQL "INSERT INTO t3 SELECT t2.* FROM t2;"
docmd.RunSQL "DELETE t2.* FROM t2;"
docmd.SetWarnings True
docmd.Requery
ElseIf result = vbNo Then
msgbox "="
docmd.CancelEvent
End If

End Sub

يعمل مع VB

الخاص بالافس اكسس

وعمله كالتالي

يقوم بنقل الجداول الموجودة في الجدول t2 ويقوم باضافتها الى الجدول t3

ثم يقوم بتنظيف الملف t2 ويحذف كل لي فيه

المهم الكثير بيفول ليش ما رحت قسم الاكسس لتضع السؤال

انتظر شوي

السؤال ما خلص

السؤال كيف يمكن تغير الكود الى الفجول بيسك

بحيث ينفذ نفس العمل

مع ربط قاعدة البينات بالكود

شاكرا لكم