Insertar un codigo a partir dela seleccion de un nombre

[natalyro]

Mira:

en vez de insertar un nombre en la tabla lo que necesito es insertar el codigo.

en un combo escojo el nombre del cliente, pero al momento de insertarlo deberia insertar el codigo de ese cliente.

lo que he hecho es esto:

Arcusfil es la tabla cliente entonces el va hasta la tabla busca todos los clientes y los pone en el combo.

Cadena_SQL = "SELECT COUNT(*) as cus_name FROM ARCUSFIL_SQL"
Cadena_SQL_1 = "select * from ARCUSFIL_SQL"

'CARGA DE COMBO
CantReg = Rsl.Fields("cus_name")

Rs5.MoveFirst

For i = 0 To CantReg - 1
Cbo_Cliente.AddItem Rs5.Fields("cus_name")
Rs5.MoveNext

Next i


lo que necesito es en el momento ya de ingresar no me ingrese el nomebre (cus_name) si no el codigo (cus_no) en la tabla pedidos.