1.Надо найти драйвер ODBC
2.Установить протестировать коннект (тут DSN=ENSEMBLE)
3.Доступ к данным подобным образом подобным:

Function FillDoc(p_id)

Const l_connstring = "DSN=ENSEMBLE;uid=guest;pwd=guest;OLE DB Services=-2"
Dim l_conn As New ADODB.Connection
Dim l_table As ADODB.Recordset
Dim l_query As String


If IsObject(l_conn) Then
l_conn.Open l_connstring
End If

Set l_table = l_conn.Execute("select cellnum/*0*/, case doctype when 2 then '2-1 ÈÑ-'||ext when 1 then '1 ÈÑ-'||ext else NULL end doctype /*1*/, name/*2*/,address/*3*/, docsum/*4*/, ndssumdoc/*5*/,passnum/*6*/,passplace/*7*/ ,CONVERT(VARCHAR(20),DOCDATE,104) as docdate /*8*/,CONVERT(VARCHAR(20),termdate,104) as termdate /*9*/, phone/*10*/,keys /*11*/ from dc.rentdoc where id = " + p_id)

'MsgBox CóììàÏðîïèñüþ(l_table.Fields(4))
'Exit Sub

If l_table.EOF Then

MsgBox "Âíèìàíèå! Çàïðîñ ê ÁÄ íè÷åãî íå âåðíóë, âîçìîæíî ââåäåí íåâåðíûé ID! (" + p_id + ")", vbOKOnly + vbExclamation, g_title

FillDoc = False

Exit Function

End If

Call past_text_bookmark("bookmark_cellno", l_table.Fields(0))