Dim oExcel As New Excel.Application
        Dim oWorkBook As Excel.Workbook
        Dim oWorkSheet As Excel.Worksheet
        ' Excel datei erstellen
        oWorkBook = oExcel.Workbooks.Add
 
        oWorkSheet = oWorkBook.Sheets(1)
        'daten eintragen
        oWorkSheet.Cells(1, 1).Value = "Name"
        oWorkSheet.Cells(1, 2).Value = "Vorname"
 
        ' datei speichern
        oExcel.ActiveWorkbook.SaveAs( _
          Filename:="D:\Projekte\VB.Net\DBTestNeuer\test.xls")
        oWorkBook.Close()