Daten aus Accessdatenbank holen: Variabel

With Worksheets("ZS").QueryTables.Add(Connection:=Array(Array( _
"ODBC;DSN=Microsoft Access-Datenbank;DBQ=D:\Dokumente und Einstellungen\Gordon Borchert\ _
Eigene Dateien\Studium\BWL IT\BWLIT-Projekt-D" _
), Array( _
"atenbank.mdb;DefaultDir=D:\Dokumente und Einstellungen\Gordon Borchert\Eigene Dateien\ _
Studium\BWL IT;DriverId=25;FIL=MS Access;" _
), Array("MaxBufferSize=2048;PageTimeout=5;")), Destination:=Range("A1"))
.CommandText = Array( _
"SELECT Unternehmen.UnternehmensID, Unternehmen.Unternehmensname, Unternehmen. _
AnzahlAngestellte, Unternehmen.AnzahlTochterunternehmen, Unternehmen.Status, Unternehmen.Hauptboerse, Unternehmen.Branche, " _
, _
"Unternehmen.Hauptstandort, Bilanzdaten.BilanzID, Bilanzdaten.UnternehmensID,  _
Bilanzdaten.Jahr, Bilanzdaten.ImmaterielleVermoegensgegenstaende, Bilanzdaten.Sachanlagen, Bilanzdaten.Finanzanlagen, Bilan" _
, _
"zdaten.Vorraete, Bilanzdaten.ForderungenUndSonstigeVermoegensgegenstaende, Bilanzdaten. _
Boersenwert, Bilanzdaten.LiquideMittel, Bilanzdaten.Rechnungsabgrenzungsposten, Bilanzdaten.Eigenkapital, Bilanzd" _
, _
"aten.Fremdkapital, Bilanzdaten.Betriebsertrag, Bilanzdaten.Nettogewinn, Bilanzdaten. _
Bruttogewinn, Bilanzdaten.Wertpapiere, Bilanzdaten.AnzahlMitarbeiter, Bilanzdaten.Gesamtvermoegen, Bilanzdaten.Umsat" _
, _
"z, Bilanzdaten.EBIT" & Chr(13) & "" & Chr(10) & "FROM Bilanzdaten Bilanzdaten,  _
Unternehmen Unternehmen" & Chr(13) & "" & Chr(10) & "WHERE Bilanzdaten.UnternehmensID = Unternehmen.UnternehmensID AND ((Unternehmen.Unternehmensname='THOMAS'))" _
)
.Name = "Abfrage von Microsoft Access-Datenbank"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With

Das funktioniert auch alles ohne Probleme. Nun möchte ich aber an der Stelle im Code, wo 'THOMAS' steht, eine Variablen wert haben. Heißt eine Variable dort einsetzen. Kann mir jemand sagen, wie man das am besten macht. Dort einfach 'ne Variable zu hinterlegen hat leider nicht geklappt.
Oder geht das leider nicht?
Gruß
Gordon