SQL like:

SELECT app_title AS variable WHERE Cd_Title = cboCdTitle.Text

Then add every thing that matches and add it to a list box.

Unfortunately, it only adds the very first apptitle, many times?!

---->CODE CUT<----
Set db = OpenDatabase("E:\projects\CD DB\db1.mdb")

SQLString = "SELECT COUNT(App_Name) As count FROM sheet1 WHERE Cd_Title='" & cboCdTitle.Text & "'"

Set rs = db.OpenRecordset(SQLString)
count = rs.Fields("count")

SQLString = "SELECT App_Name As apptitle FROM sheet1 WHERE Cd_Title='" & cboCdTitle.Text & "'"
Set rs = db.OpenRecordset(SQLString)
appname = rs.Fields("apptitle")

For I = 1 To count
lstApp.AddItem appname
Next I

--->END CODE CUT<---

Thanks in advance!