Update Sql non funziona

[cpsio]

Secondo voi xchè non funziona ?

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim conn As SqlConnection
Dim cmd As SqlCommand
Dim RecordsAffected As Integer
Dim cmdString As String = "Update Anagrafica Set nome = '" & TextBox1.Text & "' WHERE id = '1'"
conn = New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=" & pAssoluto & "\App_Data\" & nomeDb & ";Integrated Security=True;Connect Timeout=30;User Instance=True")
cmd = New SqlCommand(cmdString, conn)
conn.Open()

RecordsAffected = cmd.ExecuteNonQuery()
conn.Close()
End Sub