Dim ProgDB As String = "sites.db"
If Not(File.Exists(File.DirDefaultExternal, ProgDB)) Then
Log("create db")
dbSQL.Initialize(File.DirDefaultExternal, ProgDB, True)
'Delete old tables and create new ones.
Dim m As Map
m.Initialize
m.Put("id", dbutils.DB_INTEGER)
m.Put("name", dbutils.DB_TEXT)
m.Put("address1", dbutils.DB_TEXT)
m.Put("address2", dbutils.DB_TEXT)
m.Put("city", dbutils.DB_TEXT)
m.Put("zip", dbutils.DB_TEXT)
m.Put("country", dbutils.DB_TEXT)
m.Put("email", dbutils.DB_TEXT)
m.Put("phone", dbutils.DB_TEXT)
m.Put("fax", dbutils.DB_TEXT)
m.Put("lat", dbutils.DB_TEXT)
m.Put("long", dbutils.DB_TEXT)
m.Put("type", dbutils.DB_TEXT)
dbutils.CreateTable(dbSQL, "sites", m, "id")
Else
dbSQL.Initialize(File.DirDefaultExternal, ProgDB, False)
End If