那个大哥大姐，帮帮忙好吗？
怎么样才能将表中的一列添加到combo中，我都搞了半天了都没有成功，请指点一下？

二楼大哥，按照你的方法我试着写了一下，但是还是在报错，不知道为什么，请指教。
这个是我写的，你看那错了：Dim sql_Ywfw As String
    Dim con_Str As New ADODB.Connection
    con_Str.ConnectionString = "provider=SQLOLEDB.1;persist security info = false;user id =sa;initial catalog=yangfei"
    Dim rs_Ywfw As ADODB.Recordset
    sql_Ywfw = "select distinct userID from userinfo"
    If rs_Ywfw.State <> adStateClosed Then rs_Ywfw.Close
    rs_Ywfw.CursorLocation = adUseClient
    rs_Ywfw.Open sql_Ywfw, con_Str
    rs_Ywfw.MoveFirst
    Do While Not rs_Ywfw.EOF
        Combo1.AddItem rs_Ywfw.Fields("userID")
        rs_Ywfw.MoveNext
    Loop
 

1.我可以确定数据库连接是正确的
2.第二句也没有问题，查询其他的表都是可以的
3.这个combo1空间肯定是存在的

所以 ，我不知道问题出在哪里，郁闷啊！

加上后出现这样的错误：
Dim sql_Ywfw As String
    Dim con_Str As New ADODB.Connection
    con_Str.ConnectionString = "provider=SQLOLEDB.1;persist security info = false;user id =sa;initial catalog=yangfei"
    Dim rs_Ywfw As new ADODB.Recordset
    sql_Ywfw = "select distinct userID from userinfo"
    If rs_Ywfw.State <> adStateClosed Then rs_Ywfw.Close
    rs_Ywfw.CursorLocation = adUseClient
    rs_Ywfw.Open sql_Ywfw, con_Str，1,1
    rs_Ywfw.MoveFirst
    Do While Not rs_Ywfw.EOF
        Combo1.AddItem rs_Ywfw.Fields("userID")
        rs_Ywfw.MoveNext
    Loop

上楼大哥，还是你一语点中，可以了，谢谢你了。