Ayuda Combobox

Estoy haciendo una aplicación en visual basic 6.0 conectado con una base de datos en sql 2000. Lo que pasa es lo siguiente:
Quisiera que al momento de cargar el combobox me aparezca los nombres, pero que al momento de guardar el combobox se guarde con el código de ese nombre.
Te adjunto el código para ver que me esta faltando. Agradeciéndote de antemano.
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.CursorLocation = adUseClient
rs.Open "SELECT * FROM Proveedor", BD, adOpenStatic, adLockOptimistic
With rs
Do Until .EOF
Combo4.AddItem .Fields(1)
.MoveNext
Loop
End With
rs.Close
La parte de negro es donde cargo el combo con el campo 1 de la tabla proveedor.