Public Sub updata()
        Dim dt As DataTable = New DataTable()
        Dim dr As DataRow
        dt.Columns.Add(New DataColumn("name"))
        Dim j As Integer
        For j = 1 To 10
            dr = dt.NewRow()
            dr(0) = "name" + j.ToString()
            dt.Rows.Add(dr)
        Next
        DataGrid2.DataSource = dt
        DataGrid2.DataBind()
        Dim conn As OleDb.OleDbConnection = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\UserLog.mdb")
        conn.Open()
        Dim myAdapter As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter()
        Dim cmd As OleDb.OleDbCommand = New OleDb.OleDbCommand("UPDATE Log SET power=@name", conn)
        cmd.Parameters.Add("@name", "name")
        cmd.Parameters.Item("@name").SourceColumn = dt.Columns("name").ColumnName
        myAdapter.InsertCommand = cmd
        myAdapter.Update(dt)
        conn.Close()
    End Sub