Dim OleConn As New System.Data.OleDb.OleDbConnection( _
      "Provider=Microsoft.Jet.OLEDB.4.0;data source='" & _
      "c:\ExcelTest\daten.xls" & "';Mode=ReadWrite;Extended Properties=""Excel" & _
      "8.0;HDR=YES;IMEX=1;""")
    Dim DeleteCommand As New OleDbCommand("Delete * from [artlongtext$] where" & _
    "TextID ='3768'", OleConn)
    OleConn.Open()
    DeleteCommand.ExecuteNonQuery()
    OleConn.Close()