**一个关于ado和datacombo的问题***急急！！

Question

Dim rsstu As New ADODB.Recordset
rsstu.CursorLocation = adUseClient
rsstu.CursorType = adOpenKeyset
rsstu.LockType = adLockPessimistic
rsstu.Open "select * from studentinfo order by SID", wxmserver我已经如上定义好ado接口了，现在我要将rsstu中的第一列（即表中的第一列）显示在datacombo中以供选择。

Answer 1

For i = 0 To rsstu.RecordCount - 1
  Combo1.AddItem mrc.Fields(1).Value
Next i将数据集的记录中的第一列数据添加到ComBo1上

Answer 2

Set DataCombo1.RowSource = rsstu
DataCombo1.ListField = 字段名

Answer 3

datacombo好象不能用ADO接口，我用DAO接口显示成功

Answer 4

Dim rsstu As New ADODB.Recordset
rsstu.CursorLocation = adUseClient
rsstu.CursorType = adOpenKeyset
rsstu.LockType = adLockPessimistic
rsstu.Open "select * from studentinfo order by SID", wxmserverdo while not rsstu.eof then
  Combo1.AddItem mrc.Fields(1).Value
loop