using timer select record

 Imports System.Data.OleDb
Public Class Form1
Dim con As OleDbConnection
Dim dt As DataTable
Dim da As OleDbDataAdapter
Dim str As String = "Provider= Microsoft.Jet.OLEDB.4.0;Data Source = " & Application.StartupPath & "\Nwind.mdb;"
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Enabled = True
Timer1.Start()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim conn As OleDbConnection = New OleDbConnection(str)
conn.Open()
Dim dt As DataTable = New DataTable()
For Each _row As DataRow In dt.Rows
Dim _now As DateTime = Now
_now = _now.AddMinutes(_row("Duration"))
Dim sQry1 As String = "select * from tblTimeLoad where Start='" & _now.ToString("yyyy-MM-dd hh:mm:ss tt") & "'"
Dim da As OleDbDataAdapter = New OleDbDataAdapter(sQry1, conn)
da.Fill(dt)
DataGridView1.DataSource = dt
Next
conn.Close()
End Sub
End Class