Try this:
Public Sub MyReplace(ByRef ds As DataSet)
Dim str As String = ","
Dim mtr As String = vbCrLf
For Each datarow As DataRow In ds.Tables(0).Rows
For Each datacol As DataColumn In ds.Tables(0).Columns
datarow(datacol) = Replace(datarow(datacol).ToString, str, mtr)
Next
Next
End Sub