SoloCodigo

Voy a tratar de responder tu problema, de lo poco que entendi:

1). Una de las falencias del combobox, es que simplemente te sirve
     para datos discretos.
     Por ejemplo:
     Para el sexo, utilizas el combobox con

     cmbSexo.additem "Masculino"
     cmbSexo.additem "Femenino"

     Y tu sabes que si selecciona "Masc", el indice es 0,
     y si selecciona "Fem" el indice es 1.

     En este control solo tienes referencia al indice seleccionado, es decir, a
     la posicion del registro seleccionado.

     En el caso de multiples datos, el combobox no te sirve.

2). En tu caso  te sirve el listview o el treeview, ya que ambos tienen
     la particularidad de almacenar "clave" y "texto", de manera que cuando
     selecciones un nodo, puedes saber la clave y con ella, buscar tus datos
     y mostrarlos.

3) Te adjunto un ejemplo.
    En un form, inserta un listview y un treeview y coloca el siguiente codigo:


En el form, en la seccion declaraciones coloca

Dim gNodoTrv As Node
Dim gNodoLst As ListItem


Private Sub Form_Load()
'El cargar el listview es de la forma
'SET var=nombrelst.LISTITEM.ADD(posicion,clave,texto)
'La clave debe comenzar con un caracter siempre
Set gNodoLst = ListView1.ListItems.Add(1, "T1", "Uno")
Set gNodoLst = ListView1.ListItems.Add(2, "T2", "Dos")
Set gNodoLst = ListView1.ListItems.Add(3, "T3", "Tres")

'El cargar el treeview es de la forma
'Para el padre
'SET var=nombretrv.NODES.ADD( , ,clave,texto)
'La clave debe comenzar con un caracter siempre
'Para el hijo
'SET var=nombretrv.NODES.ADD( clavepadre,TVWCHILD ,clavehijo,texto)
'La clave debe comenzar con un caracter siempre

'Inserto los nodos padres
Set gNodoTrv = TreeView1.Nodes.Add(, , "T1", "Uno")
'Con esta instruccion, le digo, que el nodo se abra y muestre los hijos
gNodoTrv.Expanded = True
Set gNodoTrv = TreeView1.Nodes.Add(, , "T2", "Dos")
gNodoTrv.Expanded = True
Set gNodoTrv = TreeView1.Nodes.Add(, , "T3", "Tres")
gNodoTrv.Expanded = True

'Ahora se insertan nodos hijos
Set gNodoTrv = TreeView1.Nodes.Add("T1", tvwChild, "T11", "Hijo 11")
Set gNodoTrv = TreeView1.Nodes.Add("T1", tvwChild, "T12", "Hijo 12")
Set gNodoTrv = TreeView1.Nodes.Add("T2", tvwChild, "T21", "Hijo 21")
Set gNodoTrv = TreeView1.Nodes.Add("T3", tvwChild, "T31", "Hijo 31")
Set gNodoTrv = TreeView1.Nodes.Add("T3", tvwChild, "T32", "Hijo 32")
Set gNodoTrv = TreeView1.Nodes.Add("T3", tvwChild, "T33", "Hijo 33")
End Sub

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
msg = "Clave=" & Item.Key & vbLf
msg = msg & "Texto=" & Item.Text
MsgBox msg
End Sub

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
msg = "Clave=" & Node.Key & vbLf
msg = msg & "Texto=" & Node.Text
MsgBox msg
End Sub


Espero te sirva de referencias.

Hola, ya he conseguido solucionarlo, el problema era que no hacia bien las entradas de los subitems al listview.
Lo que he hecho por si alguno le interesa es:

ListView1.ListItems.Add , ,Lote!año
ListView1.ListItems.(ListView1.ListItems.Count).SubItems(1) = Lote!Serie
ListView1.ListItems.(ListView1.ListItems.Count)SubItems(2) = Lote!Tipo
y así sucesivamente hasta llenar las 7 columnas (6 subitems)

Gracias de nuevo.

Gracias Brroz.
Lo probaré porque, en principio sólo tengo que mostrar reports, y si con algo menos pesado funciona mejor.

Saludos.