Sql-Oracle-odbc-vba

Jeg har nu forsøgt mig på forskellig vis bland andet med makrooptageren. Dette virker jo fint med at få et view ned i excel:

With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
        "OLEDB;Provider=MSDAORA.1;User ID=odbc_user;Data Source=test", Destination:= _
        Range("$A$7")).QueryTable
        .CommandType = xlCmdTable                       
        .CommandText = Array("""EDB"".""Eksempel1_VIEW""")
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .SourceConnectionFile = _
        "\\Datakilder\test (Standard) Eksempel1_VIEW.odc"
        .ListObject.DisplayName = "Tabel_test__Standard__Eksempel1_VIEW7"
        .Refresh BackgroundQuery:=False
    End With

Men for det første får jeg det ned i en form for querytabel, som er filteret. Kan jeg forhindre dette - eller er det viewet, som skal ændres?
Næste er hvorledes sikre jeg at jeg kun får de få rækker for den pågældende firmakode?

Problemet er løst ved god hjælp fra en ven. Det blev noget i denne stil, hvor man skal sikre sig at vba i tools/reference er indstillet til dette (Microsoft ActiveX Data Object Library 2.8):

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim row As Integer
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset

' firmakode
SQL_Firma = Sheets("test").Range("A1").Value

' sql
SQL_Tabel_test_standard_Eksempel1_VIEW = "SELECT * FROM Tabel_test_standard_Eksempel1_VIEW WHERE FIRMA = " & SQL_Firma & _
  " AND ANSVARLIG = 'Chef'"

cn.Open ("Provider=MSDAORA.1;Data Source=Base;User Id=test;Password=test;")

' hente data om Standard
rs.Open SQL_Tabel_test_standard_eksempel1_VIEW, cn
With Worksheets("test").Range("H15:P15")
  .ClearContents
  .CopyFromRecordset rs
End With
rs.Close

Set rs = Nothing

cn.Close
Set cn = Nothing