Dim Sql As New String("UPDATE BİNABİLGİLERİ SET BLOKADI='" & TextBox1.Text & "',KATSAYISI='" & TextBox2.Text & "',BODRUMDURUMU='" & TextBox3.Text & "',OTURMAALANI='" & TextBox4.Text & "',TEMELGENİŞLİĞİ='" & TextBox5.Text & "',TEMELUZUNLUĞU='" & TextBox6.Text & "' WHERE ID = " & TextBox0.Text)
şeklinde yapınız...