' VIEW と TABLE がターゲット
Call RenameTable()

MsgBox "pause"

' TABLEのみ。VIEW は Views コレクション
Call RenameTable2()

function RenameTable()

	Dim Acc

	on error resume next

	Set Acc = CreateObject("Access.Application")
	Acc.OpenCurrentDatabase( "c:\temp\販売管理B.mdb" )
	Acc.CurrentDb.TableDefs("社員マスタ").Name = "社員マスタB"

	on error goto 0

end function

function RenameTable2()

	Dim Ac

	on error resume next

	Set Ac = CreateObject("ADOX.Catalog")
	Ac.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
		"Data Source=c:\temp\販売管理B.mdb;"
	Ac.Tables("社員マスタB").Name = "社員マスタ"
	Ac.Tables.Refresh

	on error goto 0

end function