Agregar registros a combo

[spiderman78]

Iniciado por boluart

probaste hacerle un distinct a tu consulta?

no la verdad no se como hacerlo ...........

este es el codigo q utilizo para agregar los campos al combo

Código:

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

Gracias
saludos