Set catTables=CreateObject("ADOX.Catalog")
Set cn = CreateObject("ADODB.Connection")
dbfile = "C:\Docs\Tek-Tips.mdb"
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & dbfile & ";"
Set catTables.ActiveConnection = cn
catTables.Tables("tblTable").Columns("FieldX").Name = "FieldY"
Set catTables = Nothing