БД в Экселе

With ActiveSheet.QueryTables.Add(Connection:= _
        "ODBC;DSN=rig;DBQ=E:\Program Files\База данных\Firma.mdb;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;" _
        , Destination:=Range("B8"))
        .CommandText = Array( _
        "SELECT Towar.Towar" & Chr(13) & "" & Chr(10) & "FROM `E:\Program Files\База данных\Firma`.Firma Firma, `E:\Program Files\База данных\Firma`.Towar Towar" & Chr(13) & "" & Chr(10) & "WHERE Towar.Firma = Firma.N_ AND ((Firma.Firma='ООО"Альдис"'))" & Chr(13) & "" & Chr(10) & "ORDER BY To" _
        , "war.Towar")
        .Name = "Запрос из rig"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .Refresh BackgroundQuery:=False
    End With

v0=v1.OlePropertyGet("Worksheets",1) ;
//Variant Kniga =c.OlePropertyGet("Object");
b=v1.OlePropertyGet("Worksheets",1).OlePropertyGet("Range","C5");
v0.OlePropertyGet("QueryTables").OleFunction("Add","ODBC;DSN=rig;DBQ=E:\\Program Files\\ База данных \\Firma.mdb;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;",b,"SELECT Towar.Towar FROM `E:\\Program Files\\База данных\\Firma`.Firma Firma, `E:\\Program Files\\ База данных \\Firma`.Towar Towar WHERE Towar.Firma = Firma.N_ AND ((Firma.Firma='ООО\"Альдис\"')) ORDER BY Towar.Towar");