Zitat:

hat sich erledigt: objExcel.Cells(1, 1).Value = sBestellung

if rs.recordcount = 0 then 
   msgbox "Es gibt keine Bestellungen" 
else 
   msgbox "es gibt Bestellungen" 
   sBestellung = rs.Fields("Bestellung")
   ' Das ist aber nur EINE Bestellung und nicht alle 
end if

objExcel.Cells(1, 1).Value = sBestellung