Здравствуйте!Приведу фрагмент кода, который я выдрал из хелпов с незначительными изменениями и который работает
im DatabaseContext As ObjectDatabaseContext = createUnoService("com.sun.star.sdb.Datab aseContext")Dim DataSource As ObjectDataSource = DatabaseContext.getByName("HeartUSI")Dim Connection As ObjectConnection = DataSource.GetConnection("","")Statement = Connection.createStatement()ResultSet = Statement.executeQuery("SELECT ""PatientID"" FROM ""qryReg"" WHERE ""FIO""='"+sSelected+"'")If Not IsNull(ResultSet) Then While ResultSet.next MsgBox ResultSet.getString(1) WendEnd IfМетодом научного тыка в строку DatabaseContext.getByName("HeartUSI") в качестве аргумента я вписал имя файла базы данных без расширения и код стал работать ожидаемым образом. На будущее хотел бы знать, прав ли я в том, что в этой строке функции DatabaseContext.getByName() надо передавать имя файла базы данных? Или там какое другое значение в моем случае просто совпавшее с именем файла базы данных?