if you are populating the combo directly other than from database you may experience some problems. First, populate the combo with names directly from database using the following procedure
Code:
private sub populatenames(cmb as combobox)
    dim cn as new adodb.connection
    dim rec as new adodb.recordset
 onerror goto errhandler
    cn.connectionstring="DSN="nameofdsn"
    cn.open
...