ctl="newField" strDdl = "ALTER TABLE Orguler ADD Column " & ctl & " currency NULL;" CurrentProject.Connection.Execute strDdl