DataGridの書式設定がうまくいかない

Question

DataGridの列の幅、タイトル、NullText表示などの設定が問題ないですが、書式設定(1000を￥1，000と表示させたい)がうまく行かなくてこまっております。何かが間違っているのでしょうか、ご指摘宜しくお願いいたいます。 

下記は実際のソース：

Private Sub QueryMainDtl()
        Dim i As Integer
        ' コード エディタは使用しないでください。
        Dim dsMain As New DataSet()
        dsMain.Clear()
        dsMain = New DataSet("M2")
       
        Dim tStyle As DataGridTableStyle
        Dim cStyle(10) As DataGridTextBoxColumn

        Dim das As OleDb.OleDbDataAdapter
        Dim dCol As DataColumn
        Dim strCmd As String
        Try
   中略
        Catch ex As Exception
            MessageBox.Show(ex.Message)
            cn.Close()
            Return
        End Try

        dgMainDtl.TableStyles.Clear()
        tStyle = New DataGridTableStyle()
        tStyle.MappingName = "M2"
        dgMainDtl.TableStyles.Add(tStyle)

        For i = 0 To 10
            cStyle(i) = New DataGridTextBoxColumn()
            tStyle.GridColumnStyles.Add(cStyle(i))
        Next

        i = 0
        '列タイトルを作成する
        cStyle(i).MappingName = "c2"
        cStyle(i).HeaderText = "項目"
        cStyle(i).Width = 130

        i += 1
        '列タイトルを作成する
        cStyle(i).MappingName = "c3"
        cStyle(i).HeaderText = "名称"
        cStyle(i).Width = 130
        cStyle(i).NullText = ""

        i += 1
        '列タイトルを作成する
        cStyle(i).MappingName = "c4"
        cStyle(i).Format = "c"
        cStyle(i).HeaderText = "単価"
        cStyle(i).Width = 50

        dgMainDtl.DataSource = dsMain.Tables("M2")
        'dgMainDtl.SetDataBinding(dsMain, "M2")
        dgMainDtl.ReadOnly = True
        dgMainDtl.AllowSorting = False

        cn.Close()
    End Sub

Answer 1

c4 列の型が String と言うオチじゃありませんか？

Answer 2

Stringでした。数値型に変えたらうまくいきました。

ありがとうございました。