agregar mas de 2 columnas a un combobox

[saur]

Con Visual Basic 6
Me gustaria que el combobox leyera tambien la tercera columna de la tabla llamada SECTOR..que tiene 3 campos: 1-id_sector,2-nombre_sector , 3-cantidad.
Este es mi codigo y solo lee 2 campos.
Si alguien me diera una sugerencia le estaria muy agradecida.

If ComboBoxsector.ListCount > 0 Then
ComboBoxsector.Clear
End If
Dim u As Long
ComboBoxsector.ColumnCount = 2
ComboBoxsector.ColumnWidths = "15pt;50pt"
If Datasector.Recordset.RecordCount > 0 Then
Datasector.Recordset.MoveFirst
u = 0
Do While Not Datasector.Recordset.EOF
ComboBoxsector.AddItem Datasector.Recordset("id_sector") ' Prim. colum.
ComboBoxsector.Column(1, u) = Datasector.Recordset("nombre_sector") 'seg.col
Datasector.Recordset.MoveNext
u = u + 1
Loop
End If