Sub MyDataGrid_Update(sender As Object, e As DataGridCommandEventArgs)
Dim ID As String = CType(e.Item.FindControl("lblID"), Label).Text
Dim BoardType As String = CType(e.Item.FindControl("txtBoardType"), TextBox).Text
Dim ReadMe As String = CType(e.Item.FindControl("txtReadMe"), TextBox).Text
'Response.write (ID & "<BR>" & BoardType & "<BR>" & ReadMe)
UpdateRecord(id,boardtype,readme) 'Call Sub
MyDataGrid.ShowFooter = True
MyDataGrid.EditItemIndex = -1
BindGrid()
End Sub