Dim strDefaultSettings As String
strDefaultSettings = "INSERT into Settings VALUES ('value1', 'value2', 'value3')"
sqlDB.Initialize(File.DirDefaultExternal, "sqlTest.db", True)
If sqlDB.ExecQuerySingleResult("SELECT count(name) FROM sqlite_master WHERE type='table' AND name ='Settings'") = 0 Then
'don't exist
strSQL = "CREATE TABLE Settings (Field1 TEXT, Field2 TEXT, Field3 TEXT)"
sqlDB.ExecNonQuery(strSQL)
sqlDB.ExecNonQuery(strDefaultSettings)
Else
'exists
If sqlDB.ExecQuerySingleResult("SELECT count(Field1) FROM Settings") = 0 Then
'No records
sqlDB.ExecNonQuery(strDefaultSettings)
Else
'records found
End If
End If