'DataView:
Dim View As New DataView(tab) 'tab as DataTable
View.RowFilter = "AG_Nr" AND "Datum" 'in der access-tabelle ist AG_Nr = long 
' integer u.Datum = date  
View.Sort = "AG_Nr"
'Fehler: Konvertierungsproblem von string nach integer
'DataTable:
Dim tab1 As New DataTable
        Dim i As Integer
        Dim dat As String
        For Each dr As DataRow In tab.Rows
            i = dr(1)
            dat = dr(10)
            For Each dr1 As DataRow In tab1.Rows 'Hier wird die Schleife gar 
            ' nicht ausgeführt
                dr1(0) = i
                dr1(1) = dat
            Next
        Next
        Form1.InstForm1.DataGrid5.DataSource = tab1