Visual Basic - Ayuda con Recordset

Tengo el siguiente codigo en visual , y lo que quiero hacer es q me guarde en la tabla de datos el nombre del CONTACTO pero en realidad lo que me guarda es el ID del contacto, q me falta o tengo mal del codigo para q me guarde el nombre, esto me lo hace en todos los casos q uso Recordset siempre me guarda ID. Muchas Gracias

Dim mCad As String
Dim mRs As Recordset
mCad = "SELECT CabeceraPedidos.Contacto FROM CabeceraPedidos"
Set mRs = CurrentDb.OpenRecordset(mCad)
mRs.AddNew
mRs!Contacto = Me.lb_nom_contacto.Column(2)

Se me olvido de copiar esto del final del codigo:

mRs.Update
mRs.Close

Para mi el problema es que etas seleccionando solo un campo para hacer un addnew tendrias que seleccionar todos los campos..
yo lo haria asi:

Dim mCad As String
Dim mRs As Recordset
mCad = "SELECT all FROM CabeceraPedidos"
Set mRs = CurrentDb.OpenRecordset(mCad)
mRs.AddNew
mRs!Contacto = Me.lb_nom_contacto.Column(2)
mRs.Update
mRs.Close