DBGrid实时显示数据

    ADOCon.Open;
    ADODS.Connection := ADOCon;
    ADODS.CommandText := 'SELECT * FROM dbdemos';
    DataSource.DataSet := ADODS;
    DBGrid.DataSource := DataSource;
    ADODS.Active := true;我用上面的代码查看一个access数据库,刚开始运行的时候可以看到数据库里所有的数据,但是如果有其他程序修改了数据库,dbgrid不能立刻显示出变化来,只能关掉重新打开才能看到变化.怎么能实时显示变化呢?