Private Sub cmdExport_Click()
  Dim xlApp As New Excel.Application
  Dim xlBook As Excel.Workbook
  Dim xlSheet As Excel.Worksheet
  Dim Summe As String
  Dim i As Integer
  Dim nCount As Integer
  On Error Resume Next
 
  Set xlBook = xlApp.Workbooks.Add
  Set xlSheet = xlBook.Worksheets.Add
 
  With Rs
    ' Anzahl Felder
    nCount = .Fields.Count - 1
 
    ' alle Datensätze durchlaufen
    .MoveFirst
    Do
      ' Felder in Datei schreiben
      For i = 0 To nCount
        xlSheet.Cells(i, 1) = Rs!Name
        xlSheet.Cells(i, 2) = Rs!Summe
      Next i
      .MoveNext
    Loop Until .EOF
  End With
 
  xlSheet.SaveAs App.path & "\export.xls"
  xlBook.Close
  xlApp.Quit
  Set xlApp = Nothing
  Set xlBook = Nothing
  Set xlSheet = Nothing
End Sub