If ExcelListe = True Then
           Dim DB_Excel_Ausgabe As OleDbConnection = New OleDbConnection( _
             "Provider=Microsoft.Jet.OLEDB.4.0;Excel 8.0;DATABASE=" & _
             Server.MapPath(Ausgabe) & ";Extended Properties=""Excel" & _
             "12.0;HDR=YES""")
            DB_Excel_Ausgabe.Open()
 
            Dim myCommand As OleDbCommand
 
            myCommand = New OleDbCommand("INSERT INTO [Auswertung$] (@[Name])" & _
              "VALUES (?)", DB_Excel_Ausgabe)
            myCommand.Parameters.Add("@[Name]", OleDbType.VarChar, 255, _
            "[Name]")
            Abfrage.InsertCommand = myCommand
 
            DB_Excel_Ausgabe.Close()
        End If