excel vba问题 急救！！高手进！！！

[hijiankang]

怎么用vba连接oracle数据库 并将取出的数据放入到excel的下拉列表中 要求启动excel时自动
加载

[jhone99]

excel的下拉列表
***********
下拉列表指什么？

[hijiankang]

一个控件 用excel添加的控件

[jhone99]

Private Sub Workbook_Open()
    Call sub_InitCombo
    
End Sub

Private Sub sub_InitCombo()

    Dim con As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim strQ As String
        
    con.CursorLocation = adUseClient
    con.Open "Provider=MSDASQL.1;Driver={Microsoft ODBC for oracle};Server=my_db;UID=my_user;Pwd=my_password;"
    
    strQ = "select my_filed from my_table"
    
    rs.Open strQ, con, adOpenStatic, adLockOptimistic
    
    If rs.RecordCount > 0 Then
        With Sheet1.ComboBox1
            .AddItem rs.Fields(0)
            rs.MoveNext
        End With
    End If
    
    rs.Close
    Set rs = Nothing
    con.Close
    Set con = Nothing

End Sub