Simple Excel to connect to the database and display filtered data.

Sub btnList_Click()

ActiveSheet.Range("5:65536").ClearContents

Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim cmd As New ADODB.Command
Dim sqlText As String
Dim Row As Long
Dim Findex As Long

conn.Open "DSN=Oracle;;DBQ=ORAPRDPIM;......"
cmd.ActiveConnection = conn
cmd.CommandType = adCmdText
sqlText = "SELECT DISTINCT ult_parent_name FROM pm_own.hy_master_exposure_sdb e, pm_own.sec_risk_measures srm WHERE srm.ssm_id = e.cusip AND    e.comp_sec_type_code NOT IN ('ABS','TSY') ORDER BY ult_parent_name "
cmd.CommandText = sqlText

Set rs = cmd.Execute

On Error GoTo ErrorHandler

ActiveSheet.DropDowns("ddlUltParent").Delete

ErrorHandler:
'do nothing
Resume Next

ActiveSheet.DropDowns.Add(Range("A1").Left, Range("A1").Top, 240, 18).Select
With Selection
.Name = "ddlUltParent"
.OnAction = "ddlUltParent_SelectionChanged"

Do While Not rs.EOF
Row = Row + 1
.AddItem rs.Fields(0).Value, Row
rs.MoveNext
Loop
.DropDownLines = 50

End With

ActiveSheet.Range("A1").Select

conn.Close
End Sub

Public Sub ddlUltParent_SelectionChanged()

'Sheets("Sheet1").Range("5:65536").ClearContents
ActiveSheet.Range("5:65536").ClearContents

Dim selectIndex As Integer
Dim selectText As String
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim cmd As New ADODB.Command
Dim sqlText As String
Dim data As Worksheet
Dim dd As DropDown
Set dd = ActiveSheet.DropDowns("ddlUltParent")

'Set data = Sheets("Sheet1")
Set data = ActiveSheet
selectIndex = ActiveSheet.DropDowns("ddlUltParent").Value
selectText = dd.List(selectIndex)

conn.Open "DSN=Oracle;;DBQ=ORAPRDPIM;......"
cmd.ActiveConnection = conn
cmd.CommandType = adCmdText

sqlText1 = "SELECT e.acct_no, e.acct_name, e.mgr_name, e.cusip, e.isin, e.description,"
sqltext2 = "e.coupon, e.maturity, e.price, e.quantity, e.bond_exposure,"
sqltext3 = "AND    e.ult_parent_name = '" + selectText + "'"

sqlText = sqlText1 + sqltext2 + sqltext3
cmd.CommandText = sqlText
Set rs = cmd.Execute

Row = 5
For X = 1 To rs.Fields.Count
data.Cells(Row, X).Value = rs.Fields(X - 1).Name
Next

Do While Not rs.EOF
Row = Row + 1
For Findex = 0 To rs.Fields.Count - 1
data.Cells(Row, Findex + 1).Value = rs.Fields(Findex).Value
Next Findex
rs.MoveNext
Loop

End Sub