Function ADODB_ConnectedODBC() As Boolean
    Set Con = New ADODB.Connection 
    On Error GoTo err_not_connection
    Set Con = New ADODB.Connection
    Con.Provider = "MSDASQL" 
    Con.ConnectionString = "DSN=MyBase;" 
    Con.Open
    ADODB_ConnectedODBC = True
    Exit Function
err_not_connection:
    ADODB_ConnectedODBC = False
End Function

Sub a()
    If ADODB_ConnectedODBC() Then
        MsgBox "Установлено...", , "Соединение"
    Else
        MsgBox "НЕ Установлено...", , "Соединение"
    End If
End Sub

quote:

---

Ура! У меня все заработало. Вот код:

Set conn = New ADODB.Connection
conn.ConnectionString = "provider=LCPI.IBProvider;data source=comp1:D:\TechnoDB\DZBO\industrics.gdb;ctype=win1251;user id=SYSDBA;password=masterkey"
conn.Open
Set rst = New ADODB.Recordset
With rst
.Source = "SELECT N_ORDMOVE.N_ORDMOVE_ID FROM N_ORDMOVE"
.ActiveConnection = conn
End With
conn.BeginTrans
rst.Open
emb = rst.EOF
MsgBox emb, vbInformation, "EMPTY"
rst.MoveFirst
dat = rst!N_ORDMOVE_ID
MsgBox dat, vbExclamation, "??????. ???? ????? ?? ???????"
rst.MoveFirst

---