Agregar registros a combo

[spiderman78]

Iniciado por David el Grande

En la consulta SQL:

Código sql:

SELECT DISTINCT campo FROM Tabla
 

gracias por la respuesta, mira ya modifique mi codihgo de esta manrea pero me marca error

3265- no se encontro el elemento en la coleccion que corresponde con el nombre o el ordinal pedido

Código:

Private Sub Agregar_Combo_Codigos()
    Call ConsultaCodigos
    If codigos.BOF = True Or codigos.EOF = True Then
    Exit Sub
    Else
        With codigos
            codigo.Clear
            .MoveFirst
        Do Until .EOF
            codigo.AddItem .Fields(3)----------------------------------> error
            codigo.ItemData(codigo.NewIndex) = .AbsolutePosition
            .MoveNext
        Loop
    End With
    End If
End Sub

Private Sub ConsultaCodigos()
    Dim sql As String, cadena As String, cadena1 As String
    Call VisualizarCodigos
        sql = "SELECT DISTINCT codigo FROM tblcodigo "
    Set codigos = New ADODB.Recordset
        codigos.Open sql, BD, adOpenKeyset, adLockOptimistic
End Sub

no se si haciendo la consulta de esta manera y llamandola en el combo tenga q agregar asi todos los datos o q este haciendo mal .......


saludos y gracias por la ayuda