Hola!
Puedes hacer dos cosas:
La primera -> crearte un módulo estándard e insertar el código en dicho módulo. Tras eso pulsas F5 y la cosa te debería funcionar sin problemas. Abres tu tabla y compruebas que se te ha insertado la columna.
La segunda -> si necesitas realizar la operación de forma recurrente lo más cómodo es crearte un formulario y en él insertar un botón de comando. En el evento "Al hacer click" de dicho botón le añades el código que te escribí, sin la primera línea ni la última. Así cada vez que hagas click sobre ese botón con el formulario en vista formulario se te añadirá un campo a la tabla.
Como el código es un poco "frío" si quieres puedes añadirle un msgbox para tener la seguridad de que todo ha ido bien. El código quedaría entonces así:
...
Sub añade()
Dim miSql As String
Dim nomCol As String
nomCol = Date
miSql = "ALTER TABLE Tabla1 ADD COLUMN '" & nomCol & "' CHAR"
DoCmd.RunSQL miSql
msgbox "Se ha creado el nuevo campo correctamente",vbInformation, "OK"
End Sub
...
En cuanto a la explicacion es muy sencilla:
.- Los Dim sirven para definir las variables que voy a utilizar
.- nomCol = Date -> La variable nomCol coge el valor de la fecha del sistema
.- miSql = "ALTER TABLE Tabla1 ADD COLUMN '" & nomCol & "' CHAR" -> Defino la sentencia SQL y la asigno a la variable miSql. Como el nombre del campo me viene recogido en una variable lo que hago es construir una cadena primero ( "ALTER TABLE Tabla1 ADD COLUMN '"), le concateno el valor de nomCol y acabo la expresión de cadena con una segunda parte ("' CHAR"). Como ves, la concatenación se realiza a través de los ampersand (&).
.- Finalmente, le digo al código que ejecute la SQL, que viene recogida en la variable miSql, a través de DoCmd.RunSQL miSql
Y eso es todo
Espero haberte clarificado "las ideas"
Un saludo,
Neckkito