主题：从CSV文件中读取数据，使用逗号','分割问题。

 Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog

 dlg.Filter= "Excel文件|*.csv" '设置筛选器
        Dim strs As String = FileSys.ReadAllText(dlg.FileName, encoding.default)
        Dim rs() As String = strs.Split(chr(10))
        For i As Integer = 1 To rs.Length-2
            Dim s() As String = rs(i).Split(",")
            Dim nr As DataRow = DataTables("精简数据库").AddNew

             nr("根本死亡原因") = s(0)
             nr("根本死亡原因ICD编码") = s(1)
        Next

如上代码，当我导入csv格式读取数据的时候，那第一行来说，假如csv上s(0)=支气管或肺，未特指 s(1)=C34.9。因为，作为分隔符的问题，实际上导入的nr("根本死亡原因") =支气管或肺 nr("根本死亡原因ICD编码") =未特指。能否有办法对单元格内的，不分割。