your code seems to be okay but try using this code Snippet. Im using MSSQLServer here.
I supposed to update the firstname from a particular table. the new value was set into the fname string variable.
I used the using keyword here for the automatic disposal of the objects connection and command
Dim constring As String = "your_connectionstring_here"
Dim query As String = "your_commandtext_here"
Dim fname As String = "name_to_be_set_as_new_firtsname_value"
Try
Using con As SqlConnection = New SqlConnection(constring)
Using cmd As SqlCommand = New SqlCommand()
cmd.CommandText = query
cmd.CommandType = CommandType.Text
cmd.Parameters.AddWithValue("@fname", fname)
cmd.Connection = con
con.Open()
cmd.ExecuteNonQuery()
End Using
End Using
Catch ex As Exception
'some exception handling here
End Try
let me know how it works from your project.