Visual Basic.NET - .net

como hago para que cuando consulte en el combobox me salga el dato que corresponda
ya que hice una funcion para el combobox:


Private Sub Listar_Distrito()
Dim consulta As String
consulta = "select cod_distrito, des_distrito from CRM_DISTRITO where des_distrito = '" & Cbdesdistrito.Text & "'"
Dim ds As DataSet = New DataSet
ds = ConsultarELITEDES(consulta, "crm_clinat")
Dim tabla1 As String = "crm_clinat"
Limpiar_FiltroclienteHogar()
Txtdistrito.DataBindings.Add("Text", ds, "crm_clinat.cod_distrito")
Cbdesdistrito.DataBindings.Add("Text", ds, "crm_clinat.des_distrito")

End Sub

Pero al momento de consultar no me deja ya que dice que el combobox que hice en la funcion anterior ya esta creado. La funcion de consultar es la siguiente:

Private Sub Listar_clienteHogar()
Dim consulta As String
consulta = "select a.tip_ident, a.num_ident, a.email, a.cod_distrito, a.cod_catesector, a.cod_sector, a.cod_subcatesector, a.tel_contacto1, a.tel_contacto2, a.cod_distrito, b.primer_apellido, b.segundo_apellido, b.nombre, b.fecha_nacimiento, b.sexo, b.cod_estado_civil, b.estado_supervive, b.cod_tipo_vivienda, b.cod_tipo_construccion, c.des_tipo_vivienda, d.des_tipo_construccion, e.des_estado_civil, f.des_distrito from crm_cliente a, crm_cliente_natural b, crm_tipo_vivienda c, crm_tipo_construccion d, crm_estado_civil e, crm_distrito f where a.num_ident=b.num_ident and b.cod_tipo_vivienda=c.cod_tipo_vivienda and b.cod_tipo_construccion=d.cod_tipo_construccion and b.cod_estado_civil=e.cod_estado_civil and a.cod_distrito=f.cod_distrito"
Dim ds As DataSet = New DataSet
ds = ConsultarELITEDES(consulta, "crm_clinat")
Dim tabla1 As String = "crm_clinat"
Limpiar_FiltroclienteHogar()
Llenarcomboboxclientehogar(Cbdesdistrito, Cbdesestadocivil, Cbdestipovivienda, Cbtipoconstruccion)
Txtnumeroident.DataBindings.Add("Text", ds, "crm_clinat.num_ident")
Cbtipoidentidad.DataBindings.Add("Text", ds, "crm_clinat.tip_ident")
Txtprimerapellido.DataBindings.Add("Text", ds, "crm_clinat.primer_apellido")
Txtsegundoapellido.DataBindings.Add("Text", ds, "crm_clinat.segundo_apellido")
Txtnombre.DataBindings.Add("Text", ds, "crm_clinat.nombre")
dtfechanacimiento.DataBindings.Add("Text", ds, "crm_clinat.fecha_nacimiento")
Cbdesestadocivil.SelectedText = ds.Tables(0).Rows(0).Item(21).ToString
Listar_EstadoCivil()
Txtcodestadocivil.DataBindings.Add("Text", ds, "crm_clinat.cod_estado_civil")
Cbdestipovivienda.DataBindings.Add("Text", ds, "crm_vivi.des_tipo_vivienda")
Txtcodtipovivienda.DataBindings.Add("Text", ds, "crm_clinat.cod_tipo_vivienda")
Txtdistrito.DataBindings.Add("Text", ds, "crm_clinat.cod_distrito")
Txtemail.DataBindings.Add("Text", ds, "crm_clinat.email")
Txttelefonocontacto1.DataBindings.Add("Text", ds, "crm_clinat.tel_contacto1")
Txttelefonocontacto2.DataBindings.Add("Text", ds, "crm_clinat.tel_contacto2")
Cbsexo.DataBindings.Add("Text", ds, "crm_clinat.sexo")
Cbestadosupervivencia.DataBindings.Add("Text", ds, "crm_clinat.estado_supervive")
'Cbtipoconstruccion.DataBindings.Add("Text", ds, "crm_clinat.des_tipo_construccion")
Txtcodtipoconstruccion.DataBindings.Add("Text", ds, "crm_clinat.cod_tipo_construccion")
dgdatospersonales.DataSource = ds
dgdatospersonales.DataMember = "crm_clinat"

If dgdatospersonales.RowCount <= 0 Then
MsgBox("No hay datos para esta consulta")
End If

End Sub

Muchas gracias