請高手幫改寫一段datagrid程序. (100分相送)

代码部分:Dim sql As [String] = ""
Dim strCnn As [String] = "Data Source=.;Initial Catalog=aa;User Id=sa;Password=;"'create a datasource function
Public Function CreateDataSource() As ICollection
   Dim conn As New SqlConnection(strCnn)
   
   Dim db_sqladaptor As New SqlDataAdapter(sql, conn)
   
   Dim ds As New DataSet()
   db_sqladaptor.Fill(ds, "MyDataResult")
   
   Dim myView As DataView = ds.Tables("MyDataResult").DefaultView
   Return myView
End Function 'CreateDataSource'do page load
Public Sub Page_Load(sender As [Object], e As EventArgs)
   strCnn = "Data Source=.;Initial Catalog=aa;User Id=sa;Password=;"
   
   If Not IsPostBack Then
      sql = "Select * FROM People"
      People.DataSource = CreateDataSource()
      People.DataBind()
   End If
End Sub 'Page_Load
 Public Sub Page_Grid(sender As [Object], e As DataGridPageChangedEventArgs)
   sql = "Select * FROM People"
   ' Set CurrentPageIndex to the page the user clicked.
   People.CurrentPageIndex = e.NewPageIndex
   
   ' Rebind the data. 
   People.DataSource = CreateDataSource()
   People.DataBind()
End Sub 'Page_Grid
 Public Sub People_Edit(sender As [Object], e As DataGridCommandEventArgs)
   sql = "Select * FROM People"
   
   People.EditItemIndex = e.Item.ItemIndex
   People.DataSource = CreateDataSource()
   People.DataBind()
End Sub 'People_Edit
 Public Sub People_Cancel(sender As [Object], e As DataGridCommandEventArgs)
   sql = "Select * FROM People"
   People.EditItemIndex = - 1
   People.DataSource = CreateDataSource()
   People.DataBind()
End Sub 'People_Cancel
 Public Sub People_Update(sender As [Object], e As DataGridCommandEventArgs)
   Dim FirstName As String = CType(e.Item.Cells(1).Controls(1), TextBox).Text
   Dim LastName As String = CType(e.Item.Cells(2).Controls(1), TextBox).Text
   
   Dim connUpdate As New SqlConnection(strCnn)
   connUpdate.Open()
   Dim sql_edit As [String] = "UPDATE People " + "SET FirstName = '" + FirstName.Replace("'", "''") + "'," + "LastName = '" + LastName.Replace("'", "''") + "'" + " WHERE pkID = " + e.Item.Cells(0).Text
   
   Dim sqlCommandUpdate As New SqlCommand(sql_edit, connUpdate)
   sqlCommandUpdate.ExecuteNonQuery()
   connUpdate.Close()
   
   sql = "Select * FROM People"
   People.EditItemIndex = - 1
   People.DataSource = CreateDataSource()
   People.DataBind()
End Sub 'People_Update
 Public Sub People_Delete(sender As [Object], e As DataGridCommandEventArgs)
   
   Dim connDel As New SqlConnection(strCnn)
   connDel.Open()
   Dim sql_Del As [String] = "DELETE FROM People " + " WHERE pkID = " + e.Item.Cells(0).Text
   
   Dim sqlCommandDel As New SqlCommand(sql_Del, connDel)
   sqlCommandDel.ExecuteNonQuery()
   connDel.Close()
   
   sql = "Select * FROM People"
   People.EditItemIndex = - 1
   People.DataSource = CreateDataSource()
   People.DataBind()
End Sub 'People_Delete