Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
if r.EOF and r.BOF then 'No se ha abierto o no hay registros else While not r.eof Combo1.AddItem r.Fields(numerodecampoaañadir) r.Movenext Wend If r.state = 1 then r.close End if