If TextBox1.Text.Length > 0 Then
            Dim index = Convert.ToInt32(e.CommandArgument)
            Dim row As GridViewRow = GridView1.Rows(index)


            Dim tk_provider = "Provider=Microsoft.ACE.OLEDB.12.0"
            Dim tk_database = "Data Source=" & Server.MapPath("GoBangDB.accdb")
            Dim tk_conn As New OleDbConnection(tk_provider & ";" & tk_database)
            Dim tk_sql As String

            tk_conn.Open()

            tk_sql = "Update 棋賽 Set 黑子='" & TextBox1.Text & "',狀態='遊戲開始' Where 棋賽編號=" & row.Cells(0).Text

            Dim tk_cmd As New OleDbCommand(tk_sql, tk_conn)

            tk_cmd.ExecuteNonQuery()
            If Err.Number = 0 Then
                Label1.Text = "更新成功！"

            Else
                Label1.Text = Err.Description
            End If

            tk_conn.Close()
        Else
            Label1.Text = "請輸入姓名!"

        End If