Cita:
Iniciado por 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.
Lo que entendi es que actualmente en el combo te carga los nombres de los clientes, y vos necesitas que cargue el CODIGO del cliente, en vez del nombre... Si es asi en ves de usar "cus_name" usa "cus_no"
Pero, a lo ultimo decis que queres que ingrese en la tabla de pedidos el codigo del cliente.... Ahi ya cambiaste la jugada por que no se te entiende lo que vos queres.... Ahora interpreto que necesitas lo siguiente:
En el combo que cargue los nombres de los clientes, pero al guardar el pedido que en vez de guardar el nombre guarde el CODIGO del cliente (osea nombre) que seleccionaste en el combo...
Si es eso realmente lo que necesitas, crea una funcion que te devuelva el codigo del cliente apartir del nombre asi la podes usar en cualquier momento.
SELECT cus_no FROM ARCUSFIL_SQL WHERE cus_name='NOMBRE CLIENTE';
EDITO: Para que se entienda mejor... Crea una funcion publica algo asi
Public Function Cliente_codigoXnombre(Nombre as String) as String
pones la consulta de arriba en algun recorset libre y asignas el valor a "Cliente_codigoXnombre"
End Function
De esta manera no repetis el codigo, y siempre que lo necesitas llamas a la funcion