RsToCombo
recordset.movefirst While combo1.listcount < recordset.recordcount combo1.additem(recordset.fields("NomeCampo")) recordset.movenext wend
recordset.movefirst
While combo1.listcount < recordset.recordcount
combo1.additem(recordset.fields("NomeCampo"))
recordset.movenext
wend
( rstocombo.html )- by Paolo Puglisi
- Modifica del 17/12/2023