Imports System.Data.SqlClient
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 = "Data" & _
        "Source=.\SQLEXPRESS;Attachdbfilename=|DataDirectory|\rain.mdf;Integra" & _
        "ed Security=True;User Instance=True"
        Dim conn As New SqlConnection(connstr)
        Dim da As New SqlDataAdapter("Select * FROM db_accessadmin.okt where" & _
          "day(tag) ='" & thisDay & "'", conn)
        Dim dt As New DataTable("Liste")
        conn.Open()
        da.Fill(dt)
        conn.Close()
        dv = New DataView(dt)
 
 
 
        'OktDataGridView.DataSource = dv
    End Sub
End Class