سلام
ممكنه بانك اطلاعاتيتون از ورژنهاي بالاي اكسس باشه كه توسط Data پشتيباني نشه، خود Data هم ورژنهاي مختلف داره كه بايد از بالاترين ورژن استفاده بشه ولي معمولا با Ado مشكلي نداريد و نمونه اتصال با كد توسط ADODB (نه ADODC) هم تو اينترنت زياده كه باهاش به Sql هم ميتونيد متصل بشيد، بقيش هم كه ميشه دستورات Sql كه مشابه هم هستن، اينم يك نمونه، البته در اينجا هم براي اضافه شدن رفرنس مربوطه يك عدد شيء Adodc روي فرم بزاريد و بعد حذفش كنيد
Dim cn As New ADODB.Connection
cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=DatabaseName;Data Source=ARMINA-PC\MSSqlServer"
cn.Open , "user", "pass"
cn.Execute "INSERT INTO Table2 Select * From Table1"
cn.Execute "Delete * From Table1"
cn.Close