Dim dsData As New DataSet()
        If AccessXML(Application.StartupPath & "\xmluser.xml", dsData) Then
            Dim ts1 As New DataGridTableStyle()            ts1.MappingName = dsData.Tables(0).TableName  '表名            Dim Col1 As New DataGridTextBoxColumn()
            Dim Col2 As New DataGridTextBoxColumn()            With Col1
                .MappingName = "字段"
                .HeaderText = "字段"
                .ReadOnly = True
            End With            With Col2
                .MappingName = "数据"
                .HeaderText = "数据"
                .Width = 500            End With
            ts1.GridColumnStyles.Add(Col1)
            ts1.GridColumnStyles.Add(Col2)            ts1.AllowSorting = False
            dgEdit.TableStyles.Add(ts1)  '加入表格样式            dgEdit.DataSource() = dsData
            dgEdit.DataMember() = dsData.Tables(0).TableName