Question

VB编程，用Combox把ACCESS中的字段做成下来菜单。

在VB中用ADO连接ACCESS数据库，之后读取某一字段的内容，并在VB中用Combox做成下拉菜单，但是在Combox一直是显示前面两个记录？？而且记录集的RecordCount还是负数？这是怎么回事？程序如下：
Option Explicit
Public DBCnn As New ADODB.Connection

Private Sub Form_Load()

Dim rs As New ADODB.Recordset

Dim SqlM, SqlStr As String
Dim i As Integer

SqlStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Data.mdb;Persist Security Info=False"
SqlM = "select rate from material"

DBCnn.open SqlStr

rs.open SqlM, DBCnn
If Abs(rs.RecordCount) > 0 Then
rs.MoveFirst

For i = 0 To Abs(rs.RecordCount)
comMaterial.AddItem rs.Fields("rate")
rs.MoveNext

Next

End If
End Sub

Answer 1

rs.open SqlM, DBCnn
改为
rs.open SqlM, DBCnn, 1, 1

另外接下来的读取数据流程最好改为：
rs.open SqlM, DBCnn, 1, 1
Do Until rs.Eof
comMaterial.AddItem rs.Fields("rate")
rs.MoveNext
Loop
rs.Close

这个比较简洁明了，而且是标准用法