Dim itemCell As TableCell = e.Item.Cells( 2 )
    Dim item As String = itemCell.Text
    Dim intID As Integer = Convert.ToInt32(item)
    Dim fullnameText As TableCell = e.Item.Cells( 3 )
    Dim phoneText As TableCell = e.Item.Cells( 3 )
    Dim emailText As TableCell = e.Item.Cells( 3 )
    Dim websiteText As TableCell = e.Item.Cells( 3 )
    Dim addressText As TableCell = e.Item.Cells( 3 )
    Dim cityText As TableCell = e.Item.Cells( 3 )
    Dim stateText As TableCell = e.Item.Cells( 3 )
    Dim zipcodeText As TableCell = e.Item.Cells( 3 )
    Dim notesText As TableCell = e.Item.Cells( 3 )                                
    Dim strFullName As String = fullnameText.Text
    Dim strPhone As String = phoneText.Text
    Dim strEmail As String = emailText.Text
    Dim strWebsite As String = websiteText.Text
    Dim strAddress As String = addressText.Text
    Dim strCity As String = cityText.Text
    Dim strState As String = stateText.Text
    Dim strZipcode As String = zipcodeText.Text
    Dim strNotes As String = notesText.Text
    UpdateContact(intID, strFullName, strPhone, strEmail, strWebsite, strAddress, strCity, strState, strZipcode, strNotes)
    DataGrid1.DataBind()

Function UpdateContact(ByVal contactID As Integer, ByVal fullName As String, ByVal phoneNumber As String, ByVal emailAddress As String, ByVal websiteURL As String, ByVal address As String, ByVal city As String, ByVal state As String, ByVal zipcode As String, ByVal notes As String) As Integer
        Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0; Ole DB Services=-4; Data Source=C:\Documents an"& _
"d Settings\andreiv\My Documents\NET\data.mdb"
        Dim dbConnection As System.Data.IDbConnection = New System.Data.OleDb.OleDbConnection(connectionString)

        Dim queryString As String = "UPDATE [Contacts] SET [Zipcode]=@Zipcode, [Address]=@Address, [PhoneNumber]=@Phon"& _
"eNumber, [FullName]=@FullName, [Notes]=@Notes, [WebsiteURL]=@WebsiteURL, [State]"& _
"=@State, [City]=@City, [EmailAddress]=@EmailAddress WHERE ([Contacts].[contactID"& _
"] = @contactID)"
        Dim dbCommand As System.Data.IDbCommand = New System.Data.OleDb.OleDbCommand
        dbCommand.CommandText = queryString
        dbCommand.Connection = dbConnection

        Dim dbParam_contactID As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
        dbParam_contactID.ParameterName = "@contactID"
        dbParam_contactID.Value = contactID
        dbParam_contactID.DbType = System.Data.DbType.Int32
        dbCommand.Parameters.Add(dbParam_contactID)
        Dim dbParam_fullName As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
        dbParam_fullName.ParameterName = "@FullName"
        dbParam_fullName.Value = fullName
        dbParam_fullName.DbType = System.Data.DbType.String
        dbCommand.Parameters.Add(dbParam_fullName)
        Dim dbParam_phoneNumber As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
        dbParam_phoneNumber.ParameterName = "@PhoneNumber"
        dbParam_phoneNumber.Value = phoneNumber
        dbParam_phoneNumber.DbType = System.Data.DbType.String
        dbCommand.Parameters.Add(dbParam_phoneNumber)
        Dim dbParam_emailAddress As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
        dbParam_emailAddress.ParameterName = "@EmailAddress"
        dbParam_emailAddress.Value = emailAddress
        dbParam_emailAddress.DbType = System.Data.DbType.String
        dbCommand.Parameters.Add(dbParam_emailAddress)
        Dim dbParam_websiteURL As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
        dbParam_websiteURL.ParameterName = "@WebsiteURL"
        dbParam_websiteURL.Value = websiteURL
        dbParam_websiteURL.DbType = System.Data.DbType.String
        dbCommand.Parameters.Add(dbParam_websiteURL)
        Dim dbParam_address As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
        dbParam_address.ParameterName = "@Address"
        dbParam_address.Value = address
        dbParam_address.DbType = System.Data.DbType.String
        dbCommand.Parameters.Add(dbParam_address)
        Dim dbParam_city As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
        dbParam_city.ParameterName = "@City"
        dbParam_city.Value = city
        dbParam_city.DbType = System.Data.DbType.String
        dbCommand.Parameters.Add(dbParam_city)
        Dim dbParam_state As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
        dbParam_state.ParameterName = "@State"
        dbParam_state.Value = state
        dbParam_state.DbType = System.Data.DbType.String
        dbCommand.Parameters.Add(dbParam_state)
        Dim dbParam_zipcode As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
        dbParam_zipcode.ParameterName = "@Zipcode"
        dbParam_zipcode.Value = zipcode
        dbParam_zipcode.DbType = System.Data.DbType.String
        dbCommand.Parameters.Add(dbParam_zipcode)
        Dim dbParam_notes As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
        dbParam_notes.ParameterName = "@Notes"
        dbParam_notes.Value = notes
        dbParam_notes.DbType = System.Data.DbType.String
        dbCommand.Parameters.Add(dbParam_notes)

        Dim rowsAffected As Integer =  0 
        dbConnection.Open
        Try
            rowsAffected = dbCommand.ExecuteNonQuery
        Finally
            dbConnection.Close
        End Try

        Return rowsAffected
    End Function