Public Shared Function DbToTable(ByVal PfadLeseDatenbank As String, ByVal _
   SelectFromTable As String, ByRef myData As DataTable, ByRef Ausnahme As _
   Exception) As Boolean
        Dim myCon As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & PfadLeseDatenbank)
        Dim myCom As New OleDbCommand("SELECT * FROM " & SelectFromTable & ";", _
        myCon)
        Dim myAdapter As New OleDbDataAdapter(myCom)
        Dim myStruktur As New DataTable("Struktur")
        Try
            'Struktur laden
            myAdapter.FillSchema(myStruktur, SchemaType.Mapped)
            'Daten und Struktur laden
            myAdapter.Fill(myData)
        Catch ex As Exception
            DbToTable = True
            Ausnahme = ex
            Exit Function
        End Try
        DbToTable = False
    End Function
 
 
 
    Public Shared Function restDaten(ByVal _tbl As DataTable, ByVal Filter As _
      String) As DataTable
        Dim i As Integer
        Dim selectedRows() As DataRow = _tbl.Select(Filter)
        Dim tblAftFilt As DataTable = _tbl.Clone
        For i = 0 To selectedRows.GetUpperBound(0)
            tblAftFilt.ImportRow(selectedRows(i))
        Next i
        Return tblAftFilt
    End Function
 
    Public Shared Function SplitDaten(ByRef Tbl As DataTable, ByVal Filter As _
      String) As DataTable
        Dim i As Integer
        Dim selectedRows() As DataRow = Tbl.Select(Filter)
        Dim tblAftFilt As DataTable = Tbl.Clone
        For i = 0 To selectedRows.GetUpperBound(0)
            tblAftFilt.ImportRow(selectedRows(i))
            Tbl.Rows.Remove(selectedRows(i))
        Next i
        Return tblAftFilt
    End Function

  ' DatenBank in DataTable Copieren
        If DbToTable(mPfadLeseDatenbank, mTable, MyData, Ausnahme) Then
            Log.log("Fehler: Konnte DatenBank nicht In Table Kopieren: " & _
              mPfadLeseDatenbank, Ausnahme, HtmlLogger.LogAsHtml.BoxStyle.rot)
        End If

        ' Eine Woche Rausfiltern
        Dim Wochen_Filter As String
        ' Filter für Aktuelle Woche setzen 
        Tag_lon = FirstDayOfThisWeek(Day)
        last_Tag_lon = Tag_lon.AddDays(7)
        'Filter_LON = "(Stoppzeit > '17.09.2007 13:19:24' and Stoppzeit <" & _
          "'17.09.2007 14:19:24')"
        Wochen_Filter = "(" & mSpalte & " > '" & Tag_lon & " " & "6:00:00" & _
        "' and " & mSpalte & " < '" & last_Tag_lon & " " & "6:00:00" & "' and " _
        & mFilterFürSchlecht & ")"
        myWeakData = restDaten(MyData, Wochen_Filter)

__________________________________________________________________________
Ein Programmierer ist eine Maschine die Koffein in Programmcode umwandelt!
Und Bier in Bug?s

May the source code be with you.