vb下拉列表框连接问题！！

Question

Private Sub Form_Load()
Dim mrc As ADODB.Recordset
Dim txtsql As String
Dim msgtext As String
Dim i As Integer
'为列表框添加内容
'comboGender.AddItem "男"
'comboGender.AddItem "女"
'男女的可以显示到！！！！！！！！！！！！！！！！
txtsql = "select * from class_info"
Set mrc = ExecuteSQL(txtsql, msgtext)
'添加内容到列表框中
For i = 1 To mrc.RecordCount
comboclassno.AddItem mrc.Fields(0)mrc.MoveNextNext i'关闭数据集对象
mrc.Close
End Sub

Answer 1

你要问什么问题啊?语句里面好像还少了一个mrc.Movefirst

Answer 2

Do Until mrc.EOF
comboclassno.AddItem mrc.Fields(0)mrc.MoveNextLoop
If comboclassno.ListCount Then comboclassno.ListIndex = 0

Answer 3

谢谢of123() ！！！
你的答案是真确的！同时也谢谢fishboyok(fish）
只是还有一个问题就是上面连接的那张表如果有重复记录的话可以屏蔽一些重复记录嘛？