'Löschen der Datensätze aus "dt", 
'wenn der Eintrag in Datetime-Spalte "Columnname" 
'mehr als "Days" Tage zurückliegt
 
    Private Sub DeleteOldRows(ByVal Dt As DataTable, _
        ByVal Columnname As String, ByVal Days As Integer)
 
        For i As Integer = Dt.Rows.Count - 1 To 0 Step -1
            If Not IsDBNull(Dt.Rows(i)(Columnname)) Then
                If CDate(Dt.Rows(i)(Columnname)) < Today.AddDays(-Days) Then
                    Dt.Rows(i).Delete()
                End If
            End If
        Next i
    End Sub