Dim cmd As New OleDb.OleDbCommand("DELETE * FROM Tabelle WHERE ID >" & _
          "10", New OleDb.OleDbConnection(".."))
        Dim res As Integer
        cmd.Connection.Open()
        res = cmd.ExecuteNonQuery()
        cmd.Connection.Close()
        Debug.WriteLine(String.Format("{0} Datensätze gelöscht!", res))