CONVERTING VALUE FROM DATAGRID TO CURRENCY 50pts

ok so i have a crosstab query with a bunch of string numbre values that need to be converted to currency im my datagrid.

so i figured id loop through the dataset and change each value. then rebind to the grid when finished.
which works until i have to return the value back to the dataset. where it promptly craps out.


Public Function addDollarSign()
        Dim intCount As Integer
        Dim x As Integer
        Dim numColumns As Integer
        Dim strCellValue As String
        Dim intRow As Integer
        Dim intColumn As Integer
        Dim index As Integer

        Dim dateArray(10) As String
        dateArray(0) = "1/1/2000"
        dateArray(1) = "11/1/2006"
        dateArray(2) = "12/1/2006"
        dateArray(3) = "1/1/2007"
        dateArray(4) = "2/1/2007"
        dateArray(5) = "3/1/2007"
        dateArray(6) = "4/1/2007"
        dateArray(7) = "5/1/2007"
        dateArray(8) = "6/1/2007"
        dateArray(9) = "7/1/2007"

        index = 0
        intRow = 1
        intColumn = 3
        x = 1
        intCount = ds2.Tables("result").Rows.Count()

        'switch column after all rows finished
        Try
            Do Until intColumn = dateArray.Length
                Do Until x = intCount
                    'get value
                    strCellValue = ds2.Tables("result").Rows(x).Item(dateArray(index))
                    'add $ to value if not = 0
                    If strCellValue <> "0" Then
                        strCellValue = FormatCurrency(strCellValue, 2)
                        'return value
               ds2.Tables("result").Rows(x).Item(dateArray(index)) = strCellValue '<--errors out
                    End If
                Loop
                intRow = intRow + 1
                index = index + 1
            Loop
            intColumn = intColumn + 1
        Catch ex As Exception
            MsgBox(ex.Message)
            Debug.WriteLine(ex.Message)
            Exit Function
        End Try
    End Function

here is the error that is produced

System.FormatException: Input string was not in a correct format.
   at System.Number.ParseDouble(String s, NumberStyles style, NumberFormatInfo info)
   at System.Double.Parse(String s, NumberStyles style, IFormatProvider provider)
   at System.Convert.ToDouble(String value, IFormatProvider provider)
   at System.String.System.IConvertible.ToDouble(IFormatProvider provider)
   at System.Convert.ToDouble(Object value)
   at System.Data.Common.DoubleStorage.Set(Int32 record, Object value)
   at System.Data.DataColumn.set_Item(Int32 record, Object value)Couldn't store <$29,324.00> in 1/1/2000 Column.  Expected type is Double.

so basically it wants a double but if i used double i obviously lose the currency format. and a custom grid style/format is out of the question.

so what do i need to do to get thses values back into the dataset please help.