Tenho a seguinte consulta

strSQL = "SELECT *FROM Chamados WHERE CodigoRep ='" CodRepresentante.Text "';"
        rs.Open strSQL, cn, adOpenKeyset, adLockOptimistic

 

vamos supor que eu fiz a consulta e ela localizou duas linhas de registros , como faço para adicionar estas linhas  em uma combo?.

estou usando assim.

cbo.additem rs.fields("CodigoRep") e ele adiociona somente o primeiro registro encontrado.

Pelo que eu entendi, você precisa usar um loop para preencher a Combo com tantos registros quanto forem encontrados.

Tenta assim:

 

    Do Until rs.EOF
        cbo.AddItem rsfields("CodigoRep")
        ' move o ponteiro para o próximo registro
        rs.MoveNext
    Loop

Espero ter ajudado.

Até mais.

Tinha me esqueçido de mover o penteiro , por isso não funcionava OBRIGADO.

 

Valeu, amigo.

 

Até mais.