Saludos amigos

Necesito que me ayuden con un problema que se me presento, al cargar informaci?n en un combobox utilizando la clase ListItem.

Utilizo esta clase por que necesito el id de cada registro pero que en el combo me liste solo los nombres.

El caso es que en una consulta sql me despliega casi 1500 registros y al utilizar la clase Listitem se demora una eternidad en cargar estos datos en el combo. As? que la ayuda que necesito es ver si hay alguna forma de optimizar esto o si hay otro m?todo mucho mejor para cargar los registros al combobox y poder optener el id de cada registro para utilizar mas adelante..

El c?digo que utilizo para cargar los datos en el combo es el siguiente:

Dim ObjCtoComplemtario As ListItem

'Cargo mi dr con los datos con el sql respectivo
Do While dr.Read()

?????? ObjCtoComplemtario = New L ListItem(dr.Item("SPROY_NOMBRE").ToString(), CInt(dr.Item("CTO_ID")))

????? CboContrato.Items.Add(ObjCtoComplemtario)

Loop

El problema se da justo cuando pasar por el bucle.. do while


De antemano gracias por su valiosa ayuda..

Att. Maurici