有近50000条数据，用FOR循环，需要花费大量的时间，请帮助优化下代码。
谢谢

看你写的代码一点代码重用的观点都没有，最起码将访问数据库的操作弄成一个模块呢吧？ 每次都New ADODB.Recordset，速度能快吗？

只会这些啊，请斑竹帮忙
谢谢

你窗体加载的时候最起码要从数据库中将【部门】【工号】【出勤状态】这三个字段的值查出来绑定到ComboBox中去吧？
你只初始化一个窗体的图片Form1.Icon = LoadPicture("" & App.Path & "\Log_Off.ico")设置一个Timer的刷新时间（Timer1.Interval = 1000）就不管了？
那你点击查询按钮的时候，如何根据你选择的条件来查询数据呢？你新手吗？感觉对整体项目的把握不到位呀？先不说代码写的好不好，最起码你的编写程序的思路要清新要正确。没有前面的准备你的后续工作能顺利吗？好好的将你的这个程序改改吧，建议你弄个类模块访问数据库。

没有系统的学过，属于半路出家
就是发现哪里有问题，哪里补一块的那种

哦，难怪，你在网上找找关于VB访问数据库的类模块示例看看，然后将你的思路捋清楚再编写代码。思路最重要了，思路不正确其他的全白搭。

好的，我先找找吧

斑竹
找不到啊，帮我改下吧。
谢谢！

行 22: 控件 DataGrid1 的类 MSDataGridLib.DataGrid 不是一个已加载的控件类。
行 90: 控件 Adodc1 的类 MSAdodcLib.Adodc 不是一个已加载的控件类。
行 174: 控件 DTPicker1 的类 MSComCtl2.DTPicker 不是一个已加载的控件类。
必要控件。
话说才4070条数据，不算多吧？

放上去的只有10%的数据。