error de complicion: Procedimiento demasiado largo

[carnero]

la verdad que te entendi lamitad, pero con eso pude llegar a mi solucion

Código vb:

Sub Loginsql(List As ListBox)
 
                         For i = 0 To 9
                               List1(i).AddItem login.rst(i)
                          Next
                                login.rst.Close
End Sub
 

muchas gracias, no te leia del año pasado jajaajaj

saludos