Подключение к внешней базе данных из скрипт-функции

Ниже приведен текст процедуры, которая устанавливает соединение к внешней базе данных Firebird и выводит список пользователей из таблицы GD_USER.

Option Explicit
Sub ExternalConnect
 
  Dim Creator, DB, Tr, q
  Set Creator = New TCreator
  Set DB = Creator.GetObject(nil, "TIBDatabase", "")
 
  DB.DatabaseName = "localhost:c:\temp\etalon.fdb"
  DB.Params.Add("user_name=sysdba")
  DB.Params.Add("password=masterkey")
  DB.Params.Add("lc_ctype=WIN1251")
  DB.LoginPrompt = False
  DB.Connected = True
 
  Set Tr = Creator.GetObject(nil, "TIBTransaction", "")
  Set Tr.DefaultDatabase = DB
  Tr.StartTransaction
 
  Set q = Creator.GetObject(nil, "TIBSQL", "")
  Set q.Transaction = Tr
  q.SQL.Text = "SELECT LIST(name) FROM gd_user"
  q.ExecQuery
 
  If Not q.EOF Then
    MsgBox q.Fields(0).AsString
  End If
 
End Sub