Dim myConnectionString As String
        Dim DSfilter1 As New DataSet
        Dim SQL_Datum, Org_Datum As String
        Org_Datum = DateTimePicker1.Value.Now
        SQL_Datum = "#" & Mid(Org_Datum, 7, 4) & "/" & Mid(Org_Datum, 4, 2) & _
          "/" & Mid(Org_Datum, 1, 2) & "#"
        myConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data" & _
        "Source="".\Temperaturdiagramm\Ofen1\Datenbank\Ofen1.mdb"""
        Dim mySelectQuery As String = "SELECT Datum, Uhrzeit, ALOHG1, ALOHG2," & _
        "ALOHG3, ALOHG4, ALOHG5, ALOHG6, LGOHG1, LGOHG2, LGOHG3, LGOHG4," & _
        "LGOHG5, LGOBAD FROM Temperaturen ORDER BY Uhrzeit"
        Dim myConnection As New System.Data.OleDb.OleDbConnection( _
        myConnectionString)
        DSfilter1 = New DataSet("Temperaturen")
        Dim adapter As New System.Data.OleDb.OleDbDataAdapter
        adapter.SelectCommand = New System.Data.OleDb.OleDbCommand( _
          mySelectQuery, myConnection)
        adapter.SelectCommand.Parameters.Add("Uhrzeit", _
        OleDbType.DBTimeStamp.DBTimeStamp, 0, "Uhrzeit")
        myConnection.Open()
        adapter.Fill(DSfilter1)
        myConnection.Close()
 
        Dim DVFilter As DataView
        DVFilter = New DataView
        With DVFilter
            .Table = DSfilter1.Tables(0)
            .RowFilter = ("Datum = " & SQL_Datum)
        End With
        DataGrid1.DataSource = DVFilter