Private DateColumn As B4XTableColumn 'Global declaration
Sub Activity_Create(FirstTime As Boolean)
DateColumn = B4XTable1.AddColumn("Date", B4XTable1.COLUMN_TYPE_TEXT)
'.....................
'then somewhere later ....
DateColumn.Title = "Date Recieved"