Function FilterTable(ByVal Table As DataTable, ByVal Sort As String, ByVal f As _
  Object, ByVal Art As Integer) As DataTable
        Dim dv As New DataView(Table)
        Dim newTable As New DataTable
        Dim dr() As DataRowView
        Dim Anzahl, i, j, Spalten As Integer
        dv.Sort = Sort
 
        Select Case Art
            Case 0
                Dim Filter As Guid
                Filter = f
                dr = dv.FindRows(Filter)
            Case 1
                Dim Filter As String
                Filter = f
                dr = dv.FindRows(Filter)
        End Select
 
        Anzahl = dr.Length()
        Spalten = Table.Columns.Count()
        For j = 0 To Spalten - 1
            newTable.Columns.Add(Table.Columns(j).ColumnName, Table.Columns( _
              j).DataType)
        Next j
 
        For i = 0 To Anzahl - 1
            newTable.ImportRow(dr(i).Row)
        Next i
        Return newTable
    End Function

Set Daten = db.OpenRecordset("Select * from Beschwerden_main where PBnummer = " _
  & pb_nummer & " and (befundid = 0 or isnull(Befundid)) order by Datum")