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:
Ver originalDo Until rs.EOF
IN1.AddItem rs.Fields(0)
IN2.AddItem rs.Fields(0)
'etc.
rs.MoveNext
Loop