LLENAR Y CARGAR

Public Sub cargarboxtabla() 'llena el combobox desde la tabla
  hresul = hconn.Exec("Select * from aves") 'hace la llamada
  Do While hresul.Available 'mientras este disponible
    ComboAves.Add(hresul["id_name"]) 'añade
    hresul.MoveNext() 'se mueve al siguiente
  Loop
End

Public Sub ComboAves_Click() ' carga el precio de la ave seleccionada en la base de datos
  hresul = hconn.Exec("Select * from aves where id_name like '" & ComboAves.Text & "'") 'selecciona desde la base de datos la ave seleccionada
  If hresul.Available = False Then 'vacia los valores si no hay ningún ave añadida
    TextPrecio.Text = "0 BSF"
    TextTo.Text = "0 BSF"
  Else
      TextPrecio.Text = hresul["ave_precio"] & " BSF" 'llena el campo TextPrecio con el valor del ave extraido desde la base de datos
      Key_Release 'Calcula el precio del ave por la cantidad (TextPrecio.Text * TextCant.Text) en tiempo real
  Endif
End