Combobox en Visual basic 6.0

Agrega a tu código:
Combo4.ItemData(Combo4.NewIndex) = .Fields("ID_Nombre").Value
Donde "ID_Nombre" es el nombre del campo que contiene el código.
Si tienes dudas me lo haces saber.

Hola amigo Eduardo gracias por el código pero al momento de entrar en el formulario me suelta el siguiente error
Error '13' en tiempo de ejecución: No coinciden los tipos
¿A qué se debe?

Pues que el tipo de datos que intentas poner no corresponde al del objeto.
Debes convertir el valor.
Te dejo algunos links para que estudies más el caso:
http://msdn.microsoft.com/es-es/library/cc451022(VS.71).aspx
http://www.todoexpertos.com/categorias/tecnologia-e-internet/bases-de-datos/sql-server/respuestas/450314/como-lleno-el-itemdata-de-un-combobox
Para que veas más ejemplos de utilización:
http://www.google.com/search?aq=f&sourceid=chrome&ie=UTF-8&q=itemdata
Si tienes dudas me lo haces saber.

Hola Eduardo muchas gracias por los Links, pero quisiera saber si tiene que ver con el tipo de dato de mi código, el tipo de dato de mi código es varchar(50) . ya que tengo un código autogenerado.
Te adjunto el código para saber que dato debería convertirlo
Option Explicit
Public con As ADODB.Connection
Public com As ADODB.Command
Public rs As ADODB.Recordset
Public cod As String
Public fecha As Date
Public tipo As String
Public Num As String
Public prov As String
Public concep As String
Public ruc As String
Public impo As Double
Public obs As String
Private Sub Command1_Click()
Dim rs As ADODB.Recordset
fecha = Me.DTPicker1.Value
tipo = Me.Combo3.Text
Num = Me.Text6.Text
prov = Me.Combo4.Text
concep = Me.Text8.Text
ruc = Me.Text10.Text
cod = ruc & Left(tipo, 3) ' 14 espacios
impo = Val(Me.Text11.Text)
obs = Me.Text12.Text
Set con = New ADODB.Connection
con.Open "Provider= SQLOLEDB; Initial Catalog= BETTELING;Data Source= (local); integrated security=SSPI; persist security info= true;"
Set com = New ADODB.Command
com.CommandText = "INSERT INTO
FACBOL(Codigo,Fecha,Tipo,Num,Prove,Concepto,RUC,Importe,Observacion)VALUES ('" & cod & "','" & fecha & "','" & tipo & "','" & Num & "','" & prov & "','" & concep & "','" & ruc & "','" & impo & "','" & obs & "')"
com.ActiveConnection = con
com.Execute
con.Close
MsgBox ("Registro Realizado Con Exito")
Me.DTPicker1.CheckBox = True
Me.DTPicker1.CheckBox = False
Me.Combo3.Text = ""
Me.Text6.Text = ""
Me.Combo4.Text = ""
Me.Text8.Text = ""
Me.Text10.Text = ""
Me.Text11.Text = ""
Me.Text12.Text = ""
End Sub
Sr. ¿Eduardo lo que esta en negrita es mi código que debería cambiar quisiera saber como convertirlo? Disculpe las molestias

Lo que pasa que ItemData es de tipo Integer, si tu le pasas o asignas de tipo String da el error que mencionas.
Debes convertir el valor a Integer, CInt te puede ayudar.
Si tienes dudas me lo haces saber.

Muchas Gracias amigo Eduardo, pero de verdad me sigue botando el error el problema es que yo tengo dos formularios en uno registro el código del proveedor, ¿la pregunta es donde va el CInt? en donde lo registro o donde =S

Que perdido andas, de verdad... XD
CINT es una función de VB que devuelve una cadena en Integer (Entero), siempre y cuando esta se pueda convertir, es decir, si le pasas letras dará error.
Uso:
Dim Entero As Integer
Entero = CInt("9829")
En tu caso sería para el valor que le darás al Item Data desde la variable.
Combo4.ItemData(Combo4.NewIndex) = CInt(.Fields("ID_Nombre").Value)
Si tienes dudas me lo haces saber.

¿Disculpa pucha pero sigue saliendo error del desbordamiento mira yo tenia un código que hacia con el ruc + PR + 1 ia lo kite y sale que erro de tipo de datos dime en sql tengo que poner tipo de dato INT al código de proveedor o puede ser varchar?

Te comento como lo trabajo yo,
la lógica que uso es como la de vectores paralelos
cargo 2 combos 1 con el id_proveedor y el otro con el nombre del proveedor
por supuesto el combo1 de id tiene que estar visible=false
entonces al cargar el combo los 2 se cargan al mismo tiempo teniendo el mismo indice
cuando vos elegís un nombre de la lista de proveedores y después quieres usar ese código tienes que poner así:
Comboidprofe. List(combonombreprov. Listindex)
Aca tenemos que te muestre el codigo del combo de id profe en la posicion que seleccionaste del combo de nombre de proveedores
me funciona excelente y lo uso muchisimo.
Probalo primero en un textbox normal y despues pasalo a la base.

Me sale uso invalido de la propiedad Combo1. ¿List?

Pero como lo estas asignando ¿?
Pásame solamente ese pedazo de código

Private Sub Form_Load()
Dim BD As ADODB.Connection
Dim rs As ADODB.Recordset
Set BD = New ADODB.Connection
Set rs = New ADODB.Recordset
BD.Open "Provider= SQLOLEDB; Initial Catalog= BETTELING;Data Source= (local); integrated security=SSPI; persist security info= true;"
rs.Open "SELECT * FROM Proveedor", BD, adOpenStatic, adLockOptimistic
With rs
Do Until .EOF
Combo4.AddItem .Fields(1)
Combo1.AddItem .Fields(1)
Combo1.List (Combo4.ListIndex)
.MoveNext
Loop
End With
El error me vota ahí en esa parte de negrita

Pero no lo estas asignando a nada, ni a una variable, ni a un text a nada.
Ahí lo que veo que haces es llenar los combos, borra la sentencia en negrita.
Una vez que tienes llenado los combos vas a usar esa opción pero lo tienes que programar en el evento click del combo o en algún evento que uses de un comando.

Amigo lo puse en el evento click y sigue el error
Private Sub Combo4_Click()
Combo1.List (Combo4.ListIndex)
End Sub
Me vota lo siguiente
Error de compilación: Uso no válido de propiedad
y lo enmarca en el .List
Gracias de antemano amigo espero poder solucionarlo =(

Estas interpretando mal el concepto del combobox.
textbox = Combo1.List (Combo4.ListIndex)
label = Combo1.List (Combo4.ListIndex)
Combo1. List (Combo4. ListIndex), esta es la parte del codigo para obtener el codigo pero solo no funciona, lo tenes que asignar a una variable, campo de sql etc.

Ya amigo entendí, pero ahora esa cadena a donde pongo, por que la puse en el evento click del combo nombre proveedor y nada en el form_load y nada, ¿de ahí otra pregunta los dos combos se tienen que cargar en nombre proveedor o uno en nombre y el otro en el código? Espero que m soluciones esta ultima pregunta disculpas!

Al seleccionar el dato en el combo debes hacer una query que te traiga ese código, por ejemplo
rs.Open "SELECT * FROM Proveedor WHERE nombre_campo_1='" & trim(combo4.text) & "'", BD, asOpenStatic, adLockOptimistic
Una vez hecho eso debes hacer lo siguiente, con un label con la opción Visible en FALSE le pasas el valor de la siguiente manera:
label1.caption = rs!campo_codigo
Entonces cuando tengas eso, al momento de guardar le pasas el parámetro del label al INSERT INTO o como lo guardes, prueba primero con la opción Visible en TRUE para que veas si realmente te trae el dato que quieres...

Gracias por el truco lifecanaca, ¿pero quería consultarte el where nombre_campo_1 no se refiere al campo código verdad si no al que le sigue al código?... y otra pregunta el label1. caption = rs! ¿campo_codigo se pone después del additem? ... te adjunto el código como me quedo.
Private Sub Form_Load()
Dim BD As ADODB.Connection
Dim rs As ADODB.Recordset
Set BD = New ADODB.Connection
Set rs = New ADODB.Recordset
BD.Open "Provider= SQLOLEDB; Initial Catalog= BETTELING;Data Source= (local); integrated security=SSPI; persist security info= true;"
rs.Open "SELECT * FROM Proveedor Where Codigo ='" & Trim(Combo4.Text) & "'", BD, adOpenStatic, adLockOptimistic

With rs
Do Until .EOF
'suponemos que la columna a cargar es la primera
Combo4.AddItem .Fields(1)
Label1.Caption = rs!Codigo
.MoveNext
Loop
End With
Las letras negritas son lo que agregue.
¿Al correr el programa no me carga ningún registro que sera?