Übergabe einer Variable

Sub Makro1()

With Selection.QueryTable
.Connection = _
"ODBC;DSN=kunde_odbc;SERVER=DBPROD;DATABASE=kunde;SERVERTYPE=INGRES"
.CommandText = Array( _
"SELECT Kunde.Kundennr "FROM {oj kunde & "WHERE Kunde.Kundennr = "99999999"))
Selection.QueryTable.Refresh BackgroundQuery:=False
End With
End Sub