Renaming ADO Tables HELP PLEASE!!

[clarkgriswald]

Can someone please help me? I need to know how to simply rename an table using ADO. I can do it in DAO, but I do not know how to do it for ADO. Thanks in advance!

[Clunietp]

'uses ado 2.x and ado 2.x for DDL and Security

Dim cn As ADODB.Connection
Dim objCat As ADOX.Catalog
Dim objTbl As ADOX.Table

Set cn = New Connection
Set objCat = New Catalog

'open connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Nwindnew.mdb"

objCat.ActiveConnection = cn

'get table reference
Set objTbl = objCat.Tables("Customers")

'rename it
objTbl.Name = "NewCustomersTableNameHere"

'cleanup
Set objTbl = Nothing
Set objCat = Nothing
cn.Close
Set cn = Nothing