Try
SQL1.Initialize(DBDirName, DBFileName1, False)
Dim Query2 AsString
Query2 = "SELECT ID, Latitude, Longitude, Customer, Code, Town, Street, Contact, Phone, Comment, Timestamp, Pairing FROM " & DBTableName1 & " ORDER BY Customer ASC"
LstTable5 = DBUtils.ExecuteMemoryTable(SQL1, Query2, Null, 0)
Catch
OdysseyFlag = 1
ImageView3.Bitmap = LoadBitmap(File.DirAssets,"Locked.png")
EndTry
Try
SQL2.Initialize(DBDirName, DBFileName1, False, PHIMEI,"")
Dim Query2 AsString
Query2 = "SELECT ID, Latitude, Longitude, Customer, Code, Town, Street, Contact, Phone, Comment, Timestamp, Pairing FROM " & DBTableName1 & " ORDER BY Customer ASC"
LstTable5 = DBUtils.ExecuteMemoryTable(SQL2, Query2, Null, 0)
Catch
OdysseyFlag = 0
ImageView3.Bitmap = LoadBitmap(File.DirAssets,"Unlocked.png")
EndTry
LstTable5.Clear