Получение информации с Microsoft SQL Server

[Boroda]

Сейчас для составления отчетов из БД в Microsoft SQL Server использую Microsoft Word
Ниже привел пример на VBA
Потратил два дня в поисках по Internet, но похожего примера не нашел.
Не может ли кто-нибудь написать в качестве примера аналогичный код для ooo

Sub test()
Dim strCon  As String
Dim con As New ADODB.Connection
Dim id_ As Long
   id_ = 1
   strCon = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=True;Initial Catalog=zebra;Data Source=192.168.1.3;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=WS-DEV-3;Use Encryption for Data=False;Tag with column collati"
    Dim rst As New ADODB.Recordset
    Dim strSQL As String
    con.Open strConnection
    strSQL = "SELECT Поле1 FROM dbo.Функция1(" & id_ & ")"
    rst.Open strSQL, con
    If rst.EOF Then
        MsgBox "Поле1 = " & rst!Поле1
        Exit Sub
    End If
End Sub

[smaharbA]

set con=CreateObject("ADODB.Connection")

и так далее