RS 记录集合 存放combo1 的问题

Question

Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim str_cnn As String
Dim str_sql As Stringstr_cnn = cnn2
cnn.Open str_cnnstr_sql = " select 机器号 from 硬件统计表 "
rs.CursorLocation = adUseClient
rs.Open str_sql, cnn2, 1, 3我想吧这个 RS 记录集合 放到 combo1 里面不知道下面要怎么写了 谢谢大哥大姐们 

Answer 1

dim i as long
Do While not rs.EOF
    comno1.additem rs!机器号,i
    i= i+1
Loop

Answer 2

combo1打错了dim i as long
Do While not rs.EOF
    combo1.additem rs!机器号,i
    i= i+1
Loop

Answer 3

Do While Not rs.EOF
       Combo.AddItem rs.Fields("机器号").Value  '这样就添加到组合框Combo了
       rs.MoveNext
          Loop
      rs.Close
      Set rs = Nothing