兄弟我误入歧途，请大家帮忙，在线等大家答复，不胜感激！！！谢谢您

我遇到一件非常奇怪的事情，请行家指教

我读DBF文件里面的数据

举例：
aa字段 bb字段
12 张名
98 李
69 黄

用SQL语句查询出来，LIST 里面显示出来
竟然一直显示 12 张名 ，69 黄
把98 李的丢了，
我代码如下，请您帮忙分析原因，估计少写什么属性，循环都应该正确的

Private Sub Command4_Click()

'-----------------------------读取C盘的cbjxz.dbf文件，连接语句应该都是正确的，因为能够得到cnRST的记录集
Dim cnDBF As New ADODB.Connection
Dim cnRST As New ADODB.Recordset
Dim strConString As String
strConString = "provider=msdasql;Driver={Microsoft Visual FoxPro Driver}" & _
"SourceType=DBF;" & _
"SourceDB=c:\;" & _
"Exclusive=NO;"

cnDBF.ConnectionString = strConString
cnDBF.Open strConString
cnRST.CursorLocation = adUseClient
cnRST.Open "select * from [cbjxz.dbf]", cnDBF, adOpenForwardOnly, adLockReadOnly '-------到这里都运行正确

cnRST.MoveFirst
Do While cnRST.EOF <> True And cnRST.BOF <> True
List1.AddItem cnRST.Fields ("bh") '-------list里面显示重复记录？什么原因？该显示的不显示
cnRST.MoveNext
Loop

End Sub

请问以上代码错误在那里？
为什么list里面显示两个 12 张名 不显示 98 李呢？
是不是指针没有移动，也不对啊，我循环语句没有问题啊，我把记录集付给datagrid控件，也同样显示相同的记录，不显示三条不同的记录
请您帮忙！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！不胜感激！