Ist das nicht das selbe wie Daten von der AS400 holen nur anders rum?

Dies ist wenn ich daten von der AS400 hole...

With ActiveSheet.QueryTables.Add(Connection:= _
"ODBC;DSN=AS400masch;" _
, Destination:=Range("A1"))
.CommandType = xlCmdSql
.CommandText = Array( _
"SELECT AVE.ENAMEH, AVE.ENAMEV, AVML01.VENDOR, AVML01.VNDNAM,", _
" AVE.EPHONE, AVE.EFUNK, AVE.EMAIL", _
" FROM AS400masch.BPCSF.AVML01 AVML01, ", _
"AS400masch.BPCSF.AVE AVE WHERE AVML01.VENDOR= AVE.EVEND and AVE.ESTRE = 'PMM' ")