Dim MyQuery As String ="CREATE TABLE survey (surveyid INTEGER, location TEXT, county TEXT, lat REAL, lon REAL)"
SQL1.ExecNonQuery(MyQuery)
Dim MyQuery As String ="CREATE TABLE question (surveyid INTEGER, accuracy TEXT, marker TEXT)"
SQL1.ExecNonQuery(MyQuery)