dim db as new adodb.connection
'then open your database with db connection
dim r as new adodb.recordset
r.open "select Name from Teacher", db, adopendynamic, adlockoptimistic, adcmdtext
'I guess column name is Name
do while not r.eof
combo1.additem(r.fields(0))
r.movenext
loop