窗口中一个Combo1 我希望在窗口启动时候就把数据库表里某一字段的资料全部添加进去 ，但实现不了 代码如下 请指点一下 谢谢

Private Sub Form_Load()
Dim rs As New ADODB.Recordset
Dim i As Long
rs.ActiveConnection = "provider=microsoft.jet.oledb.4.0;data source=F:\ACCESS数据库\db1.mdb"
rs.Open "xsgl"
rs.MoveFirst
For i = 0 To rs.RecordCount - 1
Combo1.AddItem rs("学号")
rs.MoveNext
Next
End Sub

[此贴子已经被作者于2007-11-14 22:43:07编辑过]

问题出在rs.Open后面的参数没设置好
Dim rs As New ADODB.Recordset
Dim i As Long
rs.ActiveConnection = "provider=microsoft.jet.oledb.4.0;data source=F:\ACCESS数据库\db1.mdb"
rs.Open "xsgl", , adOpenKeyset, adLockOptimistic
Do While Not rs.EOF
Combo1.AddItem rs(0)
rs.MoveNext
Loop