Visual Basic - Llenar combo

Hola muy buenas, en una de las pantalla de mi programa relleno los combos que esta tiene, hasta aqui no hay problemas, el problema me viene que como tengo demasiados combos, me tarda mucho al cagarme esta pantalla. Mi pregunta es si alguien sabe algun otro procedimiento que sea mas rapido para cargar los combos. El procedimiento que yo uso es el siguiente:

Private Sub Form_Load()
Call Pg_Llenarcbotipo(cbo_tipodir)
End Sub

Sub PG_LlenarCboTipo(cbo as combobox)
Dim LP_Sql As String
Dim rs As New recordset

Screen.MousePointer = 11
cbo.Clear

LP_Sql = "Select * from TipoDir WHERE cod _sucursal = 1 ORDER BY descripcion"
rs.Open LP_Sql, CX
while not rs.EOF then
cbo.AddItem rs("Descripcion")
cbo.ItemData(cbo.NewIndex) = rs("CodTipo")
rs.MoveNext
Wend
rs.Close

Screen.MousePointer = 0
End Sub

Al procedimiento PG_Llenarcbotipo lo llamo en el load unas 35 veces que es la cantidad de combos que tengo en esta pantalla, por eso me tarda demasiado tiempo en cargarmela. Me seria de gran ayuda toda la informacion que me puedan facilitar, muchas gracias de antemano.

Un saludo.

PRUEBA DE LA SIG FORMA

DO WHILE RS.EOF=FALSE
Combo1.AddItem rs("Descripcion")
rs.movenext
LOOP

Y ASEGURATE SI MANDAS LLENAR LOS COMBOS DE OTRA PARTE QUE NO SEA EL LOAD, QUE LOS COMBOS ESTEN CON LA PROPIEADAD VISIBLE=FALSE, Y CUANDO SE LLENEN LO CAMBIAS A TRUE.

ESPERO TE FUNSIONE, SALUDOS