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

Question

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

Answer 1

给你一个例子
不知道是否算是你想要的
Public Sub CmbClass(ByVal ClassSort As String, CmbName As ComboBox)   '从参数表取出信息放到ComboBox控件中
    Dim strSql As String
    If rsClass.State Then rsClass.Close
    strSql = "SELECT a.Code,a.Description FROM TransParameter a " _
    & "WHERE a.Class='" & ClassSort & "'"
    rsClass.Open strSql, Cn, adOpenStatic, adLockReadOnly
    With CmbName
        .Clear
        Dim n As Integer
        n = 0
        Do While Not rsClass.EOF
            .AddItem Trim(rsClass!Description)
            .ItemData(n) = Trim(rsClass!Code)
            n = n + 1
            rsClass.MoveNext
        Loop
        .ListIndex = 0
    End With
End Sub

Answer 2

'向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)
            rsClass.MoveNext
        Loop
        .ListIndex = 0
    End With
End Sub

Answer 3

’向表里添加COMBO中的数据
rs.fields.item("b").value=combo1.text
具体添加到数据库中的哪个字段的哪个位置，你自己再改一下吧

Answer 4

rscourse.Fields(2).value = Combo1.Text