Visual Basic Problem

[Crystalz]

Hello, i'm trying to make my program change a value in a database.
I've got a database called Account, and a Table called Accounts. I have 4 columns in this table. Id(Key column), UserName, Password and Adminpower.
What I am trying to do is to make a button change a value in that table. What I do not know is how to make the program know which row i want to change the value in.

    Private Sub btnAdmin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdmin.Click
        Dim cmd As SqlCommand
        Dim reader As SqlDataReader
        con = New SqlConnection(_connectionString)
        cmd = con.CreateCommand()
        con.Open()
        cmd.CommandText = "ALTER Accounts ('Adminpower') VALUES('1')"
        reader = cmd.ExecuteReader()
        If Not reader.HasRows Then
            MessageBox.Show("Something is wrong.")
        End If
    End Sub

That's the code so far for the button. So what I want it to do is to change the Adminpower column from 0 to 1 when pressing that button. Yes I have already connected it to the database.
When I try to press the button I get an error saying that the table doesn't exist.

Any help is appreciated.
Thanks


Screenshots:

http://imageshack.us/a/img341/8153/image1enr.png

http://imageshack.us/a/img715/5738/image2nhj.png

http://imageshack.us/a/img856/3772/tablehn.png

EDIT!!!

Problem solved. I got it working, I'll keep all the text here if anyone else has a similar problem. And this is what I used:

UPDATE Accounts SET Adminpower = 1 WHERE '" & TextBox1.Text & "' = ""UserName"" AND '" & TextBox2.Text & "' = ""Password"""

[alykins]

Syntax may be a little bit off....

dim _user as String = txt_UserName.Text
dim cmdstr as String = String.Format("UPDATE Accounts SET Adminpower = 1 WHERE username = '{0}'", _user)


Try
dim connstr as String = "" ' enter you connection string
dim conn as new SqlConnection(connstr)
dim cmd as new SqlCommand(cmdstr, conn)
cmd.CommandType = CommandType.Text

conn.Open()
cmd.ExecuteNonQuery()
conn.Close()

MessageBox.Show("Updated successfully!", "Results", MessageBoxButtons.OK) 

Catch sX as SqlException
MessageBox.Show("There was a SQL Error!", "Results", MessageBoxButtons.OK) 

Catch eX as Exception
MessageBox.Show("There was an Error!", "Results", MessageBoxButtons.OK) 

End Try

obviously this is quick and dirty, but you should be able to build off of this.

[Crystalz]

Originally Posted by alykins

Syntax may be a little bit off....

dim _user as String = txt_UserName.Text
dim cmdstr as String = String.Format("UPDATE Accounts SET Adminpower = 1 WHERE username = '{0}'", _user)


Try
dim connstr as String = "" ' enter you connection string
dim conn as new SqlConnection(connstr)
dim cmd as new SqlCommand(cmdstr, conn)
cmd.CommandType = CommandType.Text

conn.Open()
cmd.ExecuteNonQuery()
conn.Close()

MessageBox.Show("Updated successfully!", "Results", MessageBoxButtons.OK) 

Catch sX as SqlException
MessageBox.Show("There was a SQL Error!", "Results", MessageBoxButtons.OK) 

Catch eX as Exception
MessageBox.Show("There was an Error!", "Results", MessageBoxButtons.OK) 

End Try

obviously this is quick and dirty, but you should be able to build off of this.

I've got it working already, but I do appreciate it though. This might help someone else with the same question.