Código:
y en el Load() cargo los ComboBox, asirs.Open "select dato from base", cn, adOpenDynamic, adLockOptimistic
Código:
Pero solo llena el 1ero, el resto no los llena With IN1 .Clear Do Until rs.EOF .AddItem rs.Fields(0) rs.MoveNext Loop End With With IN2 .Clear Do Until rs.EOF .AddItem rs.Fields(0) rs.MoveNext Loop End With ... ...