Á¬½Ó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£¿