If DBOnline Then
Dim myDBRemote As JdbcSQL
myDBRemote.Initialize("net.sourceforge.jtds.jdbc.Driver", myConnectionString)
Dim myRS As JdbcResultSet =myDBRemote.ExecQuery("SELECT * FROM CUSTOMERS")
Else
Dim myfolder As String = Starter.rp.GetSafeDirDefaultExternal("")
Dim myDBlocal As JdbcSQL
myDBlocal.InitializeSQLite(myFolder, "ABSDB.db", True)
Dim myRS As JdbcResultSet = myDBlocal.ExecQuery("SELECT * FROM CUSTOMERS")
End If