Dim CONNECTION = New OleDbConnection("Provider=Microsoft." &
                            "Jet.OLEDB.4.0;Data Source=C:\new_BD.mdb")
        CONNECTION.Open()
        Dim COMMANDselect As New System.Data.OleDb.OleDbCommand(
            "select * from [anketa]", CONNECTION)

        Dim datareader As OleDbDataReader = COMMANDselect.ExecuteReader(CommandBehavior.CloseConnection)
        Dim datatable As New DataTable
        datatable.Columns.Add(datareader.GetName(0))
        datatable.Columns.Add(datareader.GetName(1))
        datatable.Columns.Add(datareader.GetName(2))
        While datareader.Read() = True
            datatable.Rows.Add(New String() {datareader.GetValue(0), datareader.GetValue(1), datareader.GetValue(2)})
        End While
        datareader.Close() : CONNECTION.Close()
        DataGridView1.DataSource = datatable

{
            System.Timers.Timer cntTimer = new System.Timers.Timer();
            cntTimer.AutoReset = true;
            cntTimer.Elapsed += new ElapsedEventHandler(timer_Elapsed);
            cntTimer.Interval = 60000.0f;
            cntTimer.Start();
}

private void timer_Elapsed(object sender, EventArgs e)
        {
            //Что-то сделать
        }