Hola!
Si es sólo para visualizar los registros, utiliza una DBList en lugar de una ListBox. Tienes que agregar el componente "Microsoft Data Bound List Controls" (DBLIST32.OCX), desde el menú Proyecto -> Componentes. Después, si lo haces por código, asigna:
Código:
Set RowSource = Data1
ListField = "<nombre del campo que quieres mostrar>"
pero yo te recomendaría establecerlo en las propiedades del DBList si es posible.