With ActiveSheet.QueryTables.Add(Connection:= _
        "ODBC;DSN=USU;Driver=Firebird/InterBase(r) driver;Dbname=C:\TEST.FDB;CHARSET=CYRL;;UID=SYSDBA;" _
        , Destination:=Cells("D1")
        .CommandText = Array("SELECT ID,NAME,ADDRESS FROM TEST")
        .Name = "TEST"
        .FieldNames = False
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = False
        .RefreshPeriod =  0 
        .PreserveColumnInfo = True
        .Refresh BackgroundQuery:=False
 End With