String certa?

[thsie 0]

oi alguem pode verificar se esse código está certo? pois está dando erro que estah errado no "="

sql = "select * from BD_Cad_Forn where Contato1 =" _       & "(select Contato1 from BD_Cad_Forn" _       & "where Nome_da_Empresa = '" & DataCombo1.Text & "')"

[luiz humberto 0]

Verifique qual o conteúdo do: DataCombo1.Text Provavelmente não deve conter nenhum valor.Obs: Sugeria a você não utilizar nomes em cláusulas where, sua consulta fica muito lenta e pode ocorre inconsistência em seus dados supondo que existam duas empresas com o mesmo nome.