VB.Net and SQLite not saving - vb.net

Question

as the title says it's not saving
Code
Try
connection()
Dim cmd As New SQLiteCommand
'cmd.Connection = connection()
cmd.CommandType = CommandType.Text
cmd.CommandText = "UPDATE Emp SET Value = Value +1 WHERE Id='1'"
cmd.ExecuteNonQuery()
cmd.Dispose()
connect.Close()
MsgBox("Data Has been Saved !")
Catch ex As Exception
MsgBox("Failed when saving data")
End Try
Basically im incrementing Log by 1 if the Id is equal to X.
the error seems to be in "cmd.ExecuteNonQuery()"
Table name : Emp
Value = Integer
Id = Integer

Answer 1

Comments and explanations in-line.
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Try
'Get your connection locally
Using cn As New SQLiteConnection("Your connection string")
'The using blocks ensure that your database objects are
'closed and disposed even if there is an error.
'You have put your Id in single quotes '1'
'This indicates that it is a string
'Usually an Id is a number, check your database
Using cmd As New SQLiteCommand("UPDATE Emp SET Value = Value +1 WHERE Id='1'", cn)
'You can pass your command text and the connection
'directly to the command constructor
cmd.CommandType = CommandType.Text
cn.Open()
cmd.ExecuteNonQuery()
End Using
End Using
MsgBox("Data Has been Saved !")
Catch ex As Exception
MsgBox("Failed when saving data. " & ex.Message)
End Try
End Sub
If your ID in your Where clause is not a literal and comes from user input then you need to use parameters.

Answer 2

I don't know if this is a bug or anything... but i created another project then copy and paste everything.
weird thing is it works! but the original one still doesn't. i mean i copy and paste everything from the designer to the code and the copy worker while the original doesn't
I'm using VS 2013 Updated 5...
thank you both of you.