نقل قول نوشته شده توسط vblink مشاهده تاپیک
سلام در ویژوال بیسیک 6 ار قسمت References تیک گزینه Microsoft DAO 3.6 را بزنید
بعد از طریق کد زیر می توانید نام یک تیبل را تغییر دهید.

  Dim dbSS As Database 
Dim strDbName As String
strDbName = "c:\temp\test.mdb"

Set dbSS = OpenDatabase(strDbName)

dbSS.CreateTableDef
dbSS.TableDefs("R2").Name = "Org_R2"

dbSS.Close
Set dbSS = Nothing

ممنونم از وقتی که گذاشتید اما این کد فقط در مورد بانک اکسس جواب میده و در واقع نمیتونه نام تیبل اسکیو ال رو عوض کنه