Hi,
Here is the code-
Dim con As New OleDbConnection(connection_String)
Dim Query As String = "select * from table_name where date_column='" & getdate()
Dim Da As OleDbDataAdapter
Ds As New DataSet
Dtb As New System.Data.DataTable
con.Open()
Da = New OleDbDataAdapter(Query, con)
Da.Fill(Ds)
con.Close()
Dtb = Ds.Tables(0)
GridView1.DataSource = Dtb