If you are using bound controls, if I was you don't!! they work for millions of people but you do not have full control, and you learn nothing.
To add to a dropdown list.
Dim db As Database
Set db = opendatabase("c:\mydatabase\mydb.mdb")
Set mRs = db.openRecordset("select myField from myTable order by myField")
Do While Not mRs.EOF
Combo1.AddItem mRs("myField").Value
mRs.movenext
Loop
obviously do not open a database connection everytime. :)
PS don't forget to add the microsoft DAO object library first in the project references.