Visual Basic.NET - table styles

Saludos. tengo un rato tratando de hacer esto y ya e logrado avances mi codigo es este:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Cardsgrid1.Clear()
OleDbDataAdapter1.Fill(Cardsgrid1)

Dim ts1 As New DataGridTableStyle
ts1.MappingName = "cards"
Dim TextCol As New DataGridTextBoxColumn
TextCol.MappingName = "qty"
TextCol.HeaderText = "qty"
TextCol.Width = 30
ts1.GridColumnStyles.Add(TextCol)

Dim TextCol1 As New DataGridTextBoxColumn
TextCol.MappingName = "Cardname"
TextCol.HeaderText = "Card Name"
TextCol.Width = 150
ts1.GridColumnStyles.Add(TextCol1)
Me.DataGrid1.TableStyles.Add(ts1)
End Sub

el problema es qe TextCol1 sustituye a TextCol y si pongo un tersero sustituye al aterior y no c ven mas de 1 en mi datagrid en tiempo de ejecucion, alguien me podria decir qe estoy haciendo mal?

de antemano gracias

Dim ts1 As New DataGridTableStyle
ts1.MappingName = "cards"
Dim TextCol As New DataGridTextBoxColumn --->TextCol
TextCol.MappingName = "qty" ---->TextCol
TextCol.HeaderText = "qty" ---->TextCol
TextCol.Width = 30 ------>TextCol
ts1.GridColumnStyles.Add(TextCol) ------>TextCol

Dim TextCol1 As New DataGridTextBoxColumn
TextCol.MappingName = "Cardname" ----->en vez de poner TextCol1 pusiste textCol por eso la REEMPLAZASTE, chequea bien tu codigo ok?, asimismo si te vuelve a pasar a veces es que no pones bien el mappingname

Saludos