[سعود]

استخدم نفس الاضافة بالرامترات

كود :

Dim cm As New SqlCommand("update Table1 set UserName='" & Trim(TextBox1.Text) & "', where ID=" & Val(TextBox48.Text), Conn)

ليكون هكذا

كود :

dim cm as new sqlcommand("update table1 set username=@username,image1=@image1,image2=@image2 where id=@id",con)

وهكذا لكل الاعمدة والباقي نفس سطر الاضافة

كود :

cm.parameters.addwithvalue("@username",data.sqldbtype.nvarchar).value=textbox1.text

وهكذا