我想把一个数据库里的一些数据比如城市地名（武汉，广州，青岛，上海）取出来放在COMBOBOX里的下拉框里,该怎么实现,谢谢

while not rs.eof
combobox.additems,,rs("City")
rs.movenext
wend

应该是
combox.additems rs("city")

对不起,可能我说的不完全,数据是数据库里的一个字段,我这样写,没抱错,但是却不能实现.
Public Function queryempinfo(ByVal strsql As String) As Boolean
On Error GoTo on_queryerr
Set g_dbrct = Nothing
Call g_dbrct.Open(strsql, g_dbcon, adOpenDynamic, adLockOptimistic, -1)
queryempinfo = True
Exit Function
on_queryerr:
MsgBox "错误代码:" & Err.Number & vbCrLf & "错误描述:" & Err.Description, vbCritical + vbOKOnly, "错误"
queryempinfo = False
End Function

Private Sub Form_Load()
Dim intindex As Long
Dim strsql As String
strsql = "select * from publishlist"
If queryempinfo(strsql) = True Then
g_dbrct.MoveFirst
End If
For intindex = 0 To g_dbrct.RecordCount - 1
cmbloginname.AddItem Trim(g_dbrct.Fields("city").Value)
g_dbrct.MoveNext
Next intindex

有什么问题吗,谢谢

对于这种只读的 直接绑定上去不是省力气了吗?

自己对照一下自己改吧!

Set rst = con.Execute("Select StudentNumber from student")
For i = 0 To rst.RecordCount - 1
Combo1.AddItem (rst.Fields(0).Value)
rst.MoveNext

这种做法本身没有问题的呀
你的结果集是空的话 应该看看你的数据库是否有内容 数据库链接是否正确

我查过了,数据库里有内容的,而且连接也没错.还会是哪里的错误呢

解决啦,呵呵,我把FOR循环改成LOOP循环就对了.是不是纪录集的循环不能一纪录个数作为判断,只能以结尾作为循环条件呢,郁闷中.......

还是谢谢各位好心人啦.