hola buenas tardes no se que hacer para que cuando yo selecciono un codigo en mi Datacombo me aparezca la inf de ese codigo de hecho si aparece pero solo el ultimo registro con todos sus datos pero cuando cambio el codigo y deberia darme la inf de ese codigo no lo hace este es el codigo que tengo


Public Sub CargaOrden()

  Dim TablaOrden As Result
  Dim fil As String

  TablaOrden = Me.DataSource1.Connection.Exec("Select * From Orden")

  Do While TablaOrden.Available
    Me.DataCombo1.Value = TablaOrden!Codigo
    Me.DataCombo2.Value = TablaOrden!Proveedor
    Me.DataCombo3.Value = TablaOrden!Cod_Ban
    Me.DataCombo6.Value = TablaOrden!Cuenta
    Me.DataCombo7.Value = TablaOrden!Banco
    Me.DataCombo8.Value = TablaOrden!Fecha
    Me.DataControl1.Value = TablaOrden!Tipo_Pago
    Me.DataControl2.Value = TablaOrden!Contrato
    Me.DataControl3.Value = TablaOrden!Monto_Op
    Me.DataControl4.Value = TablaOrden!Numero_Orden
    Me.DataControl5.Value = TablaOrden!Concepto

   TablaOrden.MoveNext()

  Loop


 End