Sub Service_Create
'This is the program entry point.
'This is a good place to load resources that are not specific to a single activity.
SQL1.Initialize(File.DirDefaultExternal, "chat.db", True)
Dim mp As Map = CreateMap("id": "INTEGER", "SenderId": "TEXT", "Title": "TEXT", "Body": "TEXT", "Name": "TEXT", _
"User": "INTEGER", "datum": "INTEGER", "Posted": "TEXT", "Received": "TEXT", "indexSender": "INTEGER")
DBUtils.CreateTable(SQL1, TableName, mp, "id")