O que está erado?
Ao rodar aparece a mensagem: "
Conversão especificada não é válida" ao atribuir o valor de
query ao
BindingSource.
Dim query = From tb In bd.T_Condominios _
Where tb.num_ID_Condominio = idCond _
Select tb
Me.bs_Condominio.DataSource = query
Me.txt_IDCondominio.DataBindings.Add("text", bs_Condominio, "num_ID_Condominio")
Me.txt_nomCondominio.DataBindings.Add("text", bs_Condominio, "nom_Condominio")
Me.txt_nomLogradouro.DataBindings.Add("text", bs_Condominio, "nom_Logradoruro")
Me.txt_numPredial.DataBindings.Add("text", bs_Condominio, "des_NumeroPredial")
Me.txt_Bairro.DataBindings.Add("text", bs_Condominio, "nom_Bairro")
Me.cbo_Estado.DataBindings.Add("SelectedValue", bs_Condominio, "num_ID_Estado")
Me.cbo_Cidade.DataBindings.Add("SelectedValue", bs_Condominio, "num_ID_Cidade")
Me.txt_CEP.DataBindings.Add("text", bs_Condominio, "cod_CEP")
Me.txt_CGC.DataBindings.Add("text", bs_Condominio, "num_CGC")
Sergio Ivanenko