I conect a database with:
Option Explicit
'variavel publica para nomear a conexão com o ado
Sub conecta_db()
'trata erro
On Error GoTo erro
'seta a variavel como nova conexão ado
Set CONN = New ADODB.Connection
'string de conexão para firebird
CONN.Open "DRIVER=Firebird/InterBase(r) driver; UID=SYSDBA; PWD=masterkey;DBNAME=10.232.185.108:C:\DATABASE\STAFF.GDB"
'Debug.Print CONN
'trata o erro se não achar o banco de dados ou outro tipo qualquer
'de erro que possa ocorrer...
erro:
If Err.Number <> 0 Then
MsgBox "Aconteceu um erro inesperado com o sistema!" & vbNewLine & "***************************************************" & vbNewLine & _
"Detalhes do erro: " & Err.Description, vbCritical, "Atenção:"
Err.Number = 0
End
Exit Sub
End If
End Sub

all work fine!

On ip 10.232.185.108 (is a client of my lan) i have installed a Firebir super server last version...

Have a sense to install a firebird server on 10.232.185.108???