Duda con varios ComboBox

[KenMasters]

Tengo una duda para el siguiente caso, estoy haciendo una consulta a una db, para que aparescan la misma información en varios combobox la misma informacion los combos tienen nombres asi : IN1, IN2, IN3, etc.. hasta 10 y la información que se llama tiene que ser la misma para todos ellos. aqui hago la consulta a la base de datos

Código:

rs.Open "select dato from base", cn, adOpenDynamic, adLockOptimistic

y en el Load() cargo los ComboBox, asi

Código:

    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
    ...
    ...

Pero solo llena el 1ero, el resto no los llena

[David]

Porque para volver a recorrer el Recordset debes volverlo al principio. Aunque, lo más fácil es recorrerlo sólo una vez y añadir los registros a todos los ComboBox:

Código vb:

Do Until rs.EOF
    IN1.AddItem rs.Fields(0)
    IN2.AddItem rs.Fields(0)
    'etc.
    rs.MoveNext
Loop