Dim objSql As SQL 'process globals
Dim txt As String 'in globals
objSql.Initialize(File.DirRootExternal, "MyShopping.db", True) 'created in root external
txt="CREATE TABLE GroceryItems (StoreName TEXT , ItemName TEXT , LocationInStore TEXT ,IsleNumber TEXT , LocationWithinIsle TEXT ,LocationHeight TEXT , PRIMARY KEY (StoreName, ItemName))"
objSql.ExecNonQuery(txt)