With ActiveSheet.QueryTables.Add(Connection:= _
"ODBC;DSN=Multivers for Windows;UID=ODBC;PWD=ODBC;DB=" & DatabaseNaam & ";SRVR=MVSERV", _
Destination:=ActiveCell)
.CommandText = strSql


This is what I have now The database puts the result in the active cels and I have linked the listbox to the cells But I would like to fill the listbox directly from the results
Destination:=listbox doesn't work...
Thanks,
Brian