generar datacombo dinamico

[kubuntu]

Código VB:

Dim rs As New ADODB.Recordset
 
'los datacombo ya creados
    For i = 0 To 5
        'recordset rs
            rs.Open "Select  campo1, campo2 from tabla", Con, adOpenStatic, adLockOptimistic
            
            While (rs.EOF = False)
                
                Set datacombo(i).DataSource = rs
                Set datacombo(i).RowSource = rs
                datacombo(i).BoundColumn = "campo1"
                datacombo(i).ListField = "campo2"
                 
                rs.MoveNext
            Wend
            rs.Close
    Next
 

Este procedimiento le deberia asignar valores a los datacombo pero no asigna los valores de la tabla.
gracias,

[Sergestux]

No que?... Oye incluye cuando declaras el recordest y tu conexion, muchas veces de ahi viene el problema.

Puede ser que se solucione poniendole rs.MoveFirst antes del While

[kubuntu]

Iniciado por Sergestux

No que?... Oye incluye cuando declaras el recordest y tu conexion, muchas veces de ahi viene el problema.

Puede ser que se solucione poniendole rs.MoveFirst antes del While

La cadena de conexion esta bien por que tengo uno por aparte sin el For y funciona.

[kubuntu]

Solucion. No cerrar el rs.

Gracias por la atencion,