If TableColumnExists(DBTableName3, "veld") =False Then
SQL1.ExecNonQuery("ALTER TABLE programma ADD veld TEXT")
End If
Dim WhereFields As Map
WhereFields.Initialize
WhereFields.Put("veld", Null)
DBUtils.UpdateRecord(Main.SQL1, Main.DBTableName3, "veld","something", WhereFields)