[Originally posted by Dipankar]

write the code in combo's drop down event-->
(works for access db with dsn connection)
dim rs as new adodb.recordset
set rs=nothing
set rs=cn.execute("Select * from tablename")
'cn is the connection string
do until rs.eof=true
combo.additem rs![fieldname to add]
rs.movenext
loop