hier ist der code denn ich bis jetzt habe.
Sub test1()
Range("B1:B2").Clear
Dim at As QueryTable
sqlstring = "select sum (laenge)/1000 from TWLD.fw_altg"
connstring = _
"ODBC;DSN=test;UID=test;PWD=test;SERVER=test;"
With ActiveSheet.QueryTables.Add(Connection:=connstring, _
Destination:=Range("B1"), Sql:=sqlstring)
.Refresh
End With
End Sub