Var options(-1) as string

// load all the jar files we have in a folder called java:

Var appFolder as FolderItem = GetFolderItem("")

Var count as Integer  = appFolder.Parent.Child("java").Count
Var libjs() as string
For i as Integer = 1 to count
  Var f As FolderItem = appFolder.Parent.Child("java").item(i)
  If f <> Nil and f.Exists Then
    libjs.append f.NativePath+";"
  End If
Next

// now init virtual machine
Var librery as string = Join(libjs, "")
Var vm as new JavaVMMBS(librery)

if vm.Handle = 0 then
  MsgBox "Failed to initialize virtual machine"
else
  // now make a new database connection with ucanaccess
  Var d as new JavaDatabaseMBS(vm,"net.ucanaccess.jdbc.UcanaccessDriver")
  Var DbFile as FolderItem = appFolder.Parent.Child("Database11.accdb")
  Var j as JavaConnectionMBS = d.getConnection("jdbc:ucanaccess://"+DbFile.NativePath)
  
  // select and show values
  Var r as JavaResultSetMBS = j.MySelectSQL("Select * From test")
  while r.NextRecord
    MsgBox r.getString("FirstName") +" "+ r.getString("LastName")
  wend
  
end if

Exception e as JavaExceptionMBS
MsgBox e.message+" errorcode: "+str(e.ErrorNumber)