' переменные
Dim FBcon As ADODB.Connection
Dim FBcmd As ADODB.Command
' создаем и заполняем параметры соединения
Set FBcon = CreateObject("ADODB.Connection")
FBcon.Provider = "MSDASQL.1"
FBcon.ConnectionString = "DSN=pr;Driver=Firebird/InterBase(r) driver;Dbname=localhost:DB_name;CHARSET=WIN1251;UID=SYSDBA;Client=C:\Program Files\Firebird\Firebird_2_0\bin\fbclient.dll;"
' открываем соединение
FBcon.Open

' создаем и заполняем параметры команды
Set FBcmd = CreateObject("ADODB.Command")
FBcmd.ActiveConnection = FBcon
FBcmd.CommandType = adCmdText
FBcmd.CommandText = "insert into TBL_TEST (TST_TEXT) values ('из Excel')"
FBcmd.Execute

' закрываем соединение
FBcon.Close
Set FBcon = Nothing