Visual Basic - Problemas al guardar datos del DATACOMBO

Hola que tal tengo un problema la guardar datos desde un DATACOMBO

tengo 2 tablas relacionadas


DISTRITO
IdDistrito (Autonumerico)
Nombre_Distrito(Texto)



TIENDA
IdTienda(Autonumerico)
Nombre_Tienda(Texto)
IdDistrito(Numerico)


El Formulario tienda es el que controla la tabla Tienda tengop 2 cajas de texto y un DATAComBO
el data combo controla los distritos y me muestra los nombres de los distritos , lo que yo deseo esque cuando hague click en "Guardar "me guarde el IdDistrito este el codigo que empleado para que me cargue los nombres de distrito en el dataCOMBO


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 CmdGrabar_Click()


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

End if

me sale el mensaje de error -2147352571(80020005) en timepo de ejecucion



esperandop su pronta ayuda mi BD esta echo en ACCESS 2003