Dim DirFile As String
DirFile = rp.GetSafeDirDefaultExternal("Test APP")
'If no database file then create it and init it.
If File.Exists(DirFile, "My1File.db") = False Then
SQL1.Initialize(DirFile, "My1File.db", True)
Query = "CREATE TABLE diagnosticlog (ID INTEGER PRIMARY KEY, RO TEXT, Date TEXT, FirstName TEXT, LastName TEXT, VIN TEXT, Year TEXT, Make TEXT, Model TEXT, FileName TEXT)"
SQL1.ExecNonQuery(Query)
'file is available just init it
Else
If SQL1.IsInitialized = False Then
SQL1.Initialize(DirFile, "My1File.db", True)
End If
End If