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.
NombreTabla.MoveFirst Do While Not NombreTabla.EOF cont=cont+1 ListBox.AddItem cont & ")" & Chr(9) & NombreTabla!NombreCampo NombreTabla.MoveNext Loop dime si te sirvio.