Public Class Form1
    Inherits System.Windows.Forms.Form
    Private modaCust As OleDb.OleDbDataAdapter
    Private mdtCust As DataTable = New DataTable
    Private mdvCust As DataView = New DataView

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        modaCust = New OleDb.OleDbDataAdapter( "Select * from usr_v_access_norm_mat" , _
                                               "Provider=OraOLEDB.Oracle;"  & _
                                               "Data Source=******;"  & _
                                               "User ID=****;"  & _
                                               "Password=*****" )
        modaCust.Fill(mdtCust)
        mdvCust = mdtCust.DefaultView
        DataGrid1.DataSource = mdvCust
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ocnn As New OleDb.OleDbConnection( "Provider=OraOLEDB.Oracle;"  & _
                                               "Data Source=*********;"  & _
                                               "User ID=******;"  & _
                                               "Password=*******" )
        Dim ocmdUpdate As OleDb.OleDbCommand
        Label1.Text =  "Update fceprodinst set value="  & TextBox1.Text &  " where rn="  & DataGrid1.Item(DataGrid1.CurrentRowIndex,  0 )
        Try
            ocmdUpdate = New OleDb.OleDbCommand(Label1.Text, ocnn)
            ocmdUpdate.CommandType = CommandType.Text
            ocnn.Open()
            MessageBox.Show( "Изменено "  & ocmdUpdate.ExecuteNonQuery.ToString &  "записей" )

**************************КАК ТУТ ОБНОВИТЬ DATAGRID**************************

        Catch excpData As Exception
            MessageBox.Show( "Ошибочка вышла "  & excpData.Message)
        End Try
    End Sub
End Class