Ms Query deki sorguyu revize etme

[AtaAri]

Merhaba

MS Query ile Sql database den veri alıyorum.
Sorgu içerisinde bir kaç değişken parametre var.
Bunların bir kısmı join içerisinde olduğu için parametre olarak tanımlayamıyorum.
Sorguyu vba ile update edebilir miyim?

 

[AtaAri]

Alttaki kod ile sorunu çözdüm.

    With ActiveWorkbook.Connections("Sorgu adı"). _
        ODBCConnection
        .BackgroundQuery = True
        .CommandText = Sheets("Sayfa1").Range("a1")
        .CommandType = xlCmdSql
        .Connection = Array(Array( _
        "ODBC;DSN="odbc adı";Description="odbc adı""";UID="username";PWD="password;APP=Microsoft Office;WSID="server";DATABASE=database" _
        ), Array(";LANGUAGE=Türkçe"))
        .RefreshOnFileOpen = False
        .SavePassword = True
        .SourceConnectionFile = ""
        .SourceDataFile = ""
        .ServerCredentialsMethod = xlCredentialsMethodIntegrated
        .AlwaysUseConnectionFile = False
    End With
    With ActiveWorkbook.Connections("sorgu adı")
        .Name = "sorgu adı"
        .Description = ""
        .Refresh
    End With