Dim d As String = File.Combine(DBinfo.Path,DBN)
Dim sb As StringBuilder: sb.initialize
sb.Append("jdbc:sqlite:file:").append(d).Append("?cipher=sqlcipher&legacy=4&key=")
sb.Append(DBinfo.password).Append("&kdf_iter=256000")
sql.Initialize("org.sqlite.JDBC", sb.tostring)