Add column to access table using SQL in VBA

Sub Addcolumns_Table()

Dim strsql As String
strsql = "ALTER TABLE [tablename] ADD COLUMN Column_name varChar(25);"
CurrentDb.Execute strsql

End Sub