Esa manera que lo estas haciendo no es la mejor siempre en tus consultas usa parametros.
Código vb.net:
Ver originalUsing conn As New SqlConnection("Data Source=Servidor1;Initial Catalog=DB001;Persist Security Info=True;User ID=sa;Password=Trup4593*")
Dim sql As String = "UPDATE TABLA SET CAMPO1=@cam1, CAMPO2=@cam2, CAMPO3=@cam3 where id=@id"
Dim command As New SqlCommand(sql, conn)
command.Parameters.AddWithValue("@id", ComboBox1.Text)
command.Parameters.AddWithValue("@CAMPO1", TextBox1.Text)
command.Parameters.AddWithValue("@CAMPO2", TextBox2.Text)
command.Parameters.AddWithValue("@CAMPO3", TextBox3.Text)
comand.ExecuteNonQuery()
MessageBox.Show("Se Actualizo el Registro")
End Using
Como vez de esta mejor el codigo queda mejor estructurado y es mas comprencible, donde dice CAMPO1, CAMPO2, CAMPO3 pondrás el nombre de los campos.
Y recuerde que la cadena de conexión este correcta.