RsToCombo

recordset.movefirst

While combo1.listcount < recordset.recordcount
combo1.additem(recordset.fields("NomeCampo"))
recordset.movenext
wend