QueryTable-vraagje

[linkav]

Beste,

Ik heb een tabel en vanuit vba kan ik deze vullen met volgende code

With Selection.ListObject.QueryTable
        .Connection = Array( _
        "OLEDB;Provider=SQLOLEDB.1;Persist Security Info=True;User ID=XXX;Initial Catalog=XXX;Data Source=XXX\bi;Use Procedure for Pre" _
        , _
        "pare=1;Auto Translate=True;Packet Size=4096;Workstation ID=LAP3850;Use Encryption for Data=False;Tag with column collation when " _
        , "possible=False")
        .CommandType = xlCmdSql
        .CommandText = Array( _
        "Select Name, Code From MDM.MST_Division order by Name")
        .Refresh BackgroundQuery:=False
    End With

Omdat het select-statement afhankelijk van een aantal zaken wil ik hiervoor een variabele gebruiken

tmpSql="Select Name, Code From MDM.MST_Division order by Name"
        .CommandText = Array( _
        tmpSql)

Krijg ik de foutmelding 'type mimatch'

Iemand een idee waarom dit niet werkt?