连接Access数据库后movenext很慢

Public gconSys As New ADODB.Connection
Dim RsPayer As New ADODB.RecordSet

strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\ServiceInvoice.mdb;Persist Security Info=False"
gconSys.Open strConnect
strPayerSQL = "SELECT customername from Customer WHERE Valid=0"
rsPayer.Open strPayerSQL, gconSys, adOpenStatic, adLockReadOnly

lstPayer.Clear
Do While Not rsPayer.EOF
    lstPayer.AddItem rsPayer.Fields("CustomerName").Value
    rsPayer.MoveNext
Loop

执行movenext时很慢,差不多要一秒后能行执行下一句.用"select *"也一样.
有人知道原因吗?

---

使用本地游标。

---

用了VB会无响应

---

引用

用了VB会无响应

怎么用的？

---

customername字段设索引，另外代码改为for循环，试试

num= rsPayer.rcordcount
for i=1 to num
    lstPayer.AddItem rsPayer.Fields("CustomerName").Value
    rsPayer.MoveNext
next

---

问题找到了。
strPayerSQL = "SELECT customername from Customer WHERE Valid=0"
上面的SQL语句原来有个In条件，我去IN条件去了就不会慢了。这是什么原因呀？

---

0楼的sql没有in？