Imports System.Data.OleDb
Public Class Form1
    Dim thisDay As Integer = Microsoft.VisualBasic.DateAndTime.Day(Now)
    Private dv As DataView
    Private dt As DataTable
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim connstr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data" & _
        "Source=|DataDirectory|\rain.mdb;"
        Dim conn As New OleDbConnection(connstr)
        Dim selcmd As New OleDbCommand("Select tag,von,bis FROM okt where day(" & _
          "tag) ='" & thisDay & "'", conn)
        Dim da As New OleDbDataAdapter(selcmd)
        Dim dt As New DataTable("Okt_liste")
        conn.Open()
        da.Fill(dt)
        conn.Close()
        dv = New DataView(dt)
 
 
        'OktDataGridView.DataSource = dv 'zur Kontrolle, ob wert gefunden wurde
 
    End Sub
 
 
End Class