Problemas al guardar datos desde el DATACOMBO

[andy2507]

Hola tengo 2 tablas relacionadas mi BASE DE DATOS esta echo en ACCESS 2003

TABLA "TIENDA"
IdTienda (Autonumerico)
Nombre_Tienda (Texto)
IdDistrito (numero)

TABLA "Distrito"
IdDistrito (Autonumerico)
Nombre_Distrito (Texto)


en la tabla " Tienda " tengo el problema al guardar datos , El DataCombo me Controla los nombre de los distritos(Nombre_Distrito) me carga los nombres de los distritos, pero yo quisiera que cuando presione "Guardar" guarde solo el "IdDistrito" osea el codigo del distrito , ayudenme por favor aca les dejo el codigo que empleado

PROCEDIMIENTO QUE CREE PARA CARGAR LOS DISTRITOS AL DATACOMBO

Private Sub CargarDCB()

Dim rsDistrito As ADODB.Recordset
Set rsDistrito = New ADODB.Recordset


rsDistrito.Open "select IdDistrito,Nombre_Distrito from Distrito", cnBD, adOpenStatic, adLockReadOnly, adCmdText

Set Dcbcodist.DataSource = rsDistrito
Set Dcbcodist.RowSource = rsDistrito

Dcbcodist.ListField = "Nombre_Distrito"
Dcbcodist.BoundColumn = "IdDistrito"
End Sub


GUARDAR
Private Sub CmdGuardar_Click()


rsTienda.AddNew
rsTienda.Fields("IdTienda") = txtcodtienda.Text
rsTienda.Fields("Nombre_Tienda") = txtnombtien.Text
rsTienda.Fields("IdDistrito") = Dcbcodist.BoundColumn

End if


me sale este mensaje de error '-2147352571(80020005)' en tiempo de ejecucion
Los tipos no coinciden





ESPERANDO SU PRONTA AYUDA , GRACIAS