อยากเพิ่ม column ลงใน datagrid ทำยังไงคับ ผมเขียน vb2008 เขียนใส่ใน window mobile ครับ

    ' สร้างตาราง
    Dim ts As DataGridTableStyle = New DataGridTableStyle()
    ts.MappingName = "Table1"

    ' สร้างคอลัมน์ 1
    Dim col1 As DataGridColumnStyle = New DataGridTextBoxColumn()
    col1.MappingName = "Column1"
    col1.HeaderText = "Column1"
    col1.Width = 100
    ' ใส่คอลัมน์ 1 ในตาราง
    ts.GridColumnStyles.Add(col1)

    ' สร้างคอลัมน์ 2    
    Dim col2 As DataGridColumnStyle = New DataGridTextBoxColumn()
    col2.MappingName = "Column2"
    col2.HeaderText = "Column2"
    col2.Width = 100
    ' ใส่คอลัมน์ 2 ในตาราง
    ts.GridColumnStyles.Add(col2)
    '
    '
    ' ...
    ' สร้างคอลัมน์ N    
    Dim colN As DataGridColumnStyle = New DataGridTextBoxColumn()
    colN.MappingName = "ColumnN"
    colN.HeaderText = "ColumnN"
    colN.Width = 100
    ' ใส่คอลัมน์ N ในตาราง
    ts.GridColumnStyles.Add(colN)

    ' จับตารางยัดใส่กริด
    dataGrid1.TableStyles.Add(ts)

    Private Sub addcol()
        ds.Columns.Add("id")
        ds.Columns.Add("name")
        ds.Columns.Add("sname")
        ds.Columns.Add("tel")
        ds.Columns.Add("age")
    End Sub


    Private Sub addrows()
   Dim dr As DataRow = ds.NewRow

        dr("id") = txtid.Text
        dr("name") = txtname.Text
        dr("sname") = txtsname.Text
        dr("tel") = txttel.Text
        dr("age") = txtage.Text
        ds.Rows.Add(dr)
 
txtid.Text = ""
        txtname.Text = ""
        txtsname.Text = ""
        txttel.Text = ""
        txtage.Text = ""
        txtid.Focus()
        dg1.DataSource = ds

 Dim index As Integer
        index = dg1.CurrentRowIndex
        ds.Rows.RemoveAt(index)