[Excel 2007] Query door middel van VBA aanpassen

[Gangkast]

Een tijdje geleden heb ik een excel sheet gemaakt in Excel 2003. Hierbij haal ik data naar binnen door middel van een query. Deze query kan aangepast worden door een waarde in een cel in te voeren (artikelnr.)

Nu probeer ik de query werkend te krijgen in Excel 2007, maar helaas werkt dit niet. Wat doe ik fout ?

De orginele VBA code in excel 2003

Private Sub CommandButton1_Click()

artikelnr = Sheets("Overzicht!").Range("C2")

With Sheets("Qry1").Range("A2").QueryTable
.Connection = "ODBC;DSN=AMFLIBP;"

.CommandText = Array( _
"SELECT ITEMASA.ITNBR, ITEMASA.ITDSC, ITEMASA.ENGNO, ITEMBL.MOHTQ" & Chr(13) & "" & Chr(10) & "FROM SERVER.AMFLIBP.ITEMASA ITEMASA, SERVER.AMFLIBP.ITEMBL ITEMBL" & Chr(13) & "" & Chr(10) & "WHERE ITEMBL.ITNBR = ITEMASA.ITNBR AND ((ITEMASA.ITNBR='" & artikelnr & "" _
, "'))")
.Refresh BackgroundQuery:=False
End With

End Sub

De aangepaste code in Excel 2007 die niet werkt.

Private Sub CommandButton1_Click()

artikelnr = Sheets("Overzicht!").Range("C2")

With Sheets("Qry1").ListObjects.Add(SourceType:=0, Source:="ODBC;DSN=AMFLIBP;" _
, Destination:=Range("$A$1")).QueryTable

.CommandText = Array( _
"SELECT ITEMASA.ITNBR, ITEMASA.ITDSC, ITEMASA.ENGNO, ITEMBL.MOHTQ" & Chr(13) & "" & Chr(10) & "FROM SERVER.AMFLIBP.ITEMASA ITEMASA, SERVER.AMFLIBP.ITEMBL ITEMBL" & Chr(13) & "" & Chr(10) & "WHERE ITEMBL.ITNBR = ITEMASA.ITNBR AND ((ITEMASA.ITNBR='" & artikelnr & "" _
, "'))")
.Refresh BackgroundQuery:=False
End With

End Sub

[pedorus]

Neem de macro gewoon even opnieuw op met de macro-recorder? Volgens mij moet Source een array zijn, en de range is anders.

offtopic:
Plaats code tussen [code=vb] en [/code], dat leest veel makkelijker; een exacte foutmelding bij een probleem ipv een "het werkt niet" wil ook wel eens helpen