Dr = dtDireccion.NewRow dr("iddireccion_consignado") = -1 dr("diCargar Datos Datatable a un Combobox

Hola,

tengo un problemita, tengo lo siguiente:

dr = dtDireccion.NewRow
dr("iddireccion_consignado") = -1
dr("dirección") = sDireccion.Trim
dr("id_via") = frm.CboVia.SelectedValue
dr("vía") = frm.TxtVia.Text.Trim
dr("numero") = frm.TxtNumero2.Text.Trim
dr("manzana") = frm.TxtManzana.Text.Trim
dr("lote") = frm.TxtLote.Text.Trim
dr("id_nivel") = frm.CboNivel.SelectedValue
dr("nivel") = frm.TxtNivel.Text.Trim
dr("id_zona") = frm.CboZona.SelectedValue
dr("zona") = frm.TxtZona.Text.Trim
dr("id_clasificacion") = frm.CboClasificacion.SelectedValue
dr("clasificación") = frm.TxtClasificacion.Text.Trim
dr("iddepartamento") = frm.CboDepartamento.SelectedValue
dr("idprovincia") = frm.CboProvincia.SelectedValue
dr("iddistrito") = frm.CboDistrito.SelectedValue
dtDireccion.Rows.Add(dr)
End If
Me.CboDireccion.DataSource = dtDireccion
CboDireccion.DisplayMember = "dirección"
CboDireccion.ValueMember = "iddireccion_consignado"

Como se darán cuenta, ahí concatenos todos datos y los paso a datatable

donde después lo agrego a un combobox,

Ahora mi pregunta es que lo pasa es que yo quiero insertar

ese dato concatenado como un solo registro

donde hago lo siguiente

With ObjInDireccionCliente_EN

.Dirección = dtDireccion

Pero me sale un error, donde me dice que no puedo convertir de Datatable a string,

La gran pregunta es como hago para solucionarlo,

gracias.