蔡鸟请教

Question

Private Sub getData()
    Dim CN   As New ADODB.Connection                '定义数据库的连接存放数据和代码
    Dim Rs   As New ADODB.Recordset
    CN.ConnectionString = "Provider=sqloledb;Data Source=pmserver;Initial Catalog=northwind;User Id=sa;Password=sa;"
    CN.Open
    
    Rs.Open "select * from employees", CN, adOpenDynamic, adLockBatchOptimistic
     
    Do Until Rs.EOF
        Combo1.AddItem Rs.Fields("FirstName")
        Rs.MoveNext
    Loop
   CN.CloseEnd Sub

Answer 1

Do Until Rs.EOF
        Combo1.AddItem Rs.Fields("FirstName")
        Rs.MoveNext
    Loop打开一个记录集直接添加到combo中