lcMDBPath = "C:\test.mdb" lcMDBStr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" + lcMDBPath + ";" oCat = Create("adox.Catalog") oCn = Create("adodb.Connection") oCn.Open(lcMDBStr) oCat.ActiveConnection = oCn oCat.Tables("SomeTable").Columns("SomeField").Name = "NewName" oCn.Close()You could also rename column using Connection.Execute() method, but because of SQL command ALTER TABLE ... RENAME COLUMN is not supported by Access, you'll need to add a new column, copy data from old column to a new one, and drop old column.