vba窗体中的combobox中添加数据库数据.

Question

Dim oCon As New ADODB.Connection
    Dim oRS  As New ADODB.Recordset
       oCon.Open "Provider=Microsoft.ACE.OLEDB.12.0;" _
            & "Data Source=" & CurrentProject.Path & "\Order_DataBase.accdb;"
Me.ComboBox1.AddItem oRS.Fields
    oRS.Close
    oCon.Close
    Set oRS = Nothing
    Set oCon = Nothing总是提示2047错误.
请教大侠们.

Answer 1

1 oRS 对象要打开（查询记录集）2 要写代码将 oRS 中某一列的数据逐行 AddItem 到 ComboBox 中。

Answer 2

    Dim oCon As New ADODB.Connection
    Dim oRS  As New ADODB.Recordset
    dim i    As integer
    oCon.Open "Provider=Microsoft.ACE.OLEDB.12.0;" _
            & "Data Source=" & CurrentProject.Path & "\Order_DataBase.accdb;"
    if oRS.state<>adstateclosed then oRS.close
    oRS.open " select aa from 表名 "
    ComboBox1.clear
    for i=1 to oRS.recordcount
        ComboBox1.AddItem oRS!aa &""
        oRS.movenext
    next i
    oRS.Close
    oCon.Close
    Set oRS = Nothing
    Set oCon = Nothing