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,