Datagrid TableStyle giving odd results.

[Rico]

Hello,

I have a datagrid which I'm populating with the result of a dataset. The
dataset only has three columns in it, and I've put together the following
code to deal with the columns. The strange thing is, I get FOUR columns
showing. I thought this was bizarre since the DS only has three columns and
the following code only deals with three columns. Any help would be great.

Thanks!
Private Sub SetTableStyle()

' Create a Grid Table Style. Map it to the "Customers" Table.

Dim aGridTableStyle As New DataGridTableSt yle

aGridTableStyle .MappingName = "SerialDeta il"

'

' Create GridColumnStyle objects for the grid columns

Dim aCol1 As New DataGridTextBox Column

Dim aCol2 As New DataGridTextBox Column

Dim aCol3 As New DataGridTextBox Column

' Hide column 1 by setting its width to 0.

With aCol1

' .MappingName = "VendorInventor yTypeID"

..MappingName = "SerialNumberID "

..Width = 0

..ReadOnly = True

End With

' Set column 2's caption, width and disable editing.

With aCol2

'.MappingName = "Descriptio n"

..MappingName = "Descriptio n"

..HeaderText = "Descriptio n"

..Width = 20

..NullText = ""

..Alignment = HorizontalAlign ment.Left

..TextBox.Enabl ed = False

End With

' Set column 3 and 4's caption, width and enable editing.

' Since these values are optional set their Null values.

With aCol3

'.MappingName = "SerialNumb er"

..MappingName = "SerialNumb er"

..HeaderText = "Serial No."

..Width = 20

..Alignment = HorizontalAlign ment.Center

..NullText = ""

..TextBox.Enabl ed = True

End With

' Add the GridColumnStyle s to the DataGrid's Column Styles collection.

' Place the "ID" column (column 1) last since it is not visible.

With aGridTableStyle .GridColumnStyl es

..Add(aCol2)

..Add(aCol3)

..Add(aCol1)

End With

' Add the GridColumnStyle s to the aGridTableStyle .

dgSerialNumbers .TableStyles.Ad d(aGridTableSty le)

End Sub