I am trying to rename MSAccess tables using ADOX from VB.
I have tried the following but it fails. Any Suggestions?
Dim cat As New ADOX.Catalog
Dim tbl As New ADOX.Table
'Open the Catelog cat.ActiveConnection =
"Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data
Set tbl = cat.Tables("Old_Name")
tbl.Name = "New_Name"
Set cat = Nothing