how to update data using datagridview in vb.net

[progvar]

Hi
i want to update data in database using datagridview
actually i am displaying the data in datagridview and after that i want to update some rows data directly modifying the displayed data into the datagridview

how can be done like this
please send me some code or some help

regards
varinder sharma

[OuTCasT]

Dim sqlConnection As SqlConnection
    Dim sqlCommandArea As SqlCommand
    Dim sqlAdapterArea As SqlDataAdapter
    Dim sqlDataTableArea As DataTable
    Dim sqlManagerArea As CurrencyManager

 sqlCommandArea = New SqlCommand("SELECT * FROM AreaDescriptions order by AreaCode", sqlConnection)
        sqlAdapterArea = New SqlDataAdapter
        sqlAdapterArea.SelectCommand = sqlCommandArea
        sqlDataTableArea = New DataTable
        sqlAdapterArea.Fill(sqlDataTableArea)
        'Bind Controls with datatable
        txtCodeArea.DataBindings.Add("text", sqlDataTableArea, "AreaCode", True)
        txtDescriptionArea.DataBindings.Add("text", sqlDataTableArea, "AreaDescription", True)
        txtReferenceNoArea.DataBindings.Add("text", sqlDataTableArea, "AreaReferenceNo", True)
        txtCostingCodeArea.DataBindings.Add("text", sqlDataTableArea, "AreaCostingCode", True)
        txtGLDebitCodeArea.DataBindings.Add("text", sqlDataTableArea, "AreaGLDebit", True)
        txtGLCreditCodeArea.DataBindings.Add("text", sqlDataTableArea, "AreaGLCredit", True)
        'Set Gridview
        AreaGridView.DataSource = sqlDataTableArea
        ' Establish Navigation Manager
        sqlManagerArea = DirectCast(Me.BindingContext(sqlDataTableArea), CurrencyManager)

Private Sub Save()
        Try
            sqlConnection.Open()
            sqlManagerArea.EndCurrentEdit()
            Dim sqlAreaUpdate As New SqlCommandBuilder(sqlAdapterArea)
            sqlAdapterArea.Update(sqlDataTableArea)
            sqlConnection.Close()

        Catch sqlexc As SqlException
            MsgBox(sqlexc.Message, MsgBoxStyle.OkOnly, "SQL Exception Error")
        Catch exc As Exception
            MsgBox(exc.Message, MsgBoxStyle.OkOnly, "Connection Failed")
        End Try

    End Sub