String certa?

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 & "')"