Add a new column; copy old value to new; drop old column.
sql = "ALTER TABLE MyTable ADD NewName VARCHAR(50)"
CurrentDb.Execute strSQL, dbFailOnError
sql = "UPDATE MyTable SET NewName = OldName"
CurrentDb.Execute strSQL, dbFailOnError
sql = "ALTER TABLE MyTable DROP OldName"
CurrentDb.Execute strSQL, dbFailOnError