RE:listbox no permite additem
Hola de nuevo Fede:
Después he visto este comentario que haces en tu último mensaje:
"pero en cuestion ningun objeto te deja cargar con el resultado de u recordset, nin grillas ni listiew ni lisbox nada me entendes porque sino otra forma de mostrarlo no tengo"
No es correcto, cualquier ListBox, aunque no disponga de la propiedad AddItem, te permite cargar mediante Recordset, todos o parte de los registros de una Tabla/Consulta, ya te lo ha dicho antes Mimenda, tienes que poner Tipo de Origen de la Fila: Tabla/Consulta, definir los anchos de las columnas, el número de columnas y luego puedes asignar el Origen de la Fila (RowSource) si quieres por código, por ejemplo en el Evento "Al cargar" puedes poner que cargue todos los registros e incluso que los ordene por un campo:
ListBox1.RowSource = "Select Campo1, Campo2, Campo3 From Tabla1 Order By Campo1;"
Y después en tiempo de ejecución se puede ir cambiando el Origen de la Fila para que muestre registros Filtrados, usando determinados Eventos Click en botones de comando, botones de opción o en el Evento "Al cambiar" de un campo, etc.:
ListBox1.RowSource = "Select Campo1, Campo2, Campo3 From Tabla1 Where Campo3='" & Me.CampoFiltro & "' Order By Campo1;"
O incluso que busque por contenido de una palabra tecleada en un Cuadro de Texto (CampoFiltro):
Private Sub CampoFiltro_Change()
ListBox1.RowSource = "Select Campo1, Campo2, Campo3 From Tabla1 Where Campo1 Like '*" & CampoFiltro.Text & "*' Order By Campo1;"
End If
Prueba y verás como si funciona.
Saludos
Enrique