请教一个下拉列表框（Combox）绑定数据的问题

Question

一个Combox与表aa中的a字段进行绑定，要求能从Combox中选择字段a中的所有数据，且数据不重复，怎么实现？另外，将Combox选中的数据添到字段a中，怎么实现。
我是这么做的：rscourse.Fields(2) = Combo1.Text
（rescourse为ADODB.Recordset），但是报错。

Answer 1

'向Combox里添加数据
Public Sub Main()  
    Dim str As String
    str = "SELECT b FROM  a "
    rs.Open str, Cn, adOpenStatic, adLockReadOnly
    With Combo1
        .Clear
        Do While rs.EOF<>true
            .AddItem Trim(rs!b)
            rs.MoveNext
        Loop
        .ListIndex = 0
    End With
End Sub’向表里添加COMBO中的数据
rs.fields.item("b").value=combo1.text
具体添加到数据库中的哪个字段的哪个位置，你自己再改一下吧