最简单的办法就是在你的数据表中添加一个字段UpdateDate,默认值是Date()
然后每次打开程序的时候调用
Adodc1.CommandType = abCmdText
Adodc1.RecordSource = "select * from your_table where UpdateDate = " Date()
Adodc1.Refresh
然后每次打开程序的时候调用
Adodc1.CommandType = abCmdText
Adodc1.RecordSource = "select * from your_table where UpdateDate = " Date()
Adodc1.Refresh
Adodc1.RecordSource = "select * from your_table where UpdateDate = " & Date()
Adodc1.Refresh