VB6.0 读取CSV文件

最近做了一个Upload文件的需求，文件的格式为CSV，读取文件的方法整理了一下，如下：

1、先写了一个读取CSV文件的Function：

'读取CSV文件
'假设传入的参数strFile=C:Documents and SettingsAdministrator桌面TPA_Report1 - 副本.CSV
Public Function Read_CSVFile(strFile As String) As ADODB.Recordset
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
    Dim conn As ADODB.Connection
    Set conn = New ADODB.Connection
    Dim strFilePath As String, strFileName As String
    Dim i As Integer
    i = Len(strFile)
    Do Until Mid(strFile, i, 1) = "" '从后向前查找倒数第一个""
        i = i - 1
    Loop
    strFilePath = Left(strFile, i - 1) '返回结果：C:Documents and SettingsAdministrator桌面
    strFileName = Mid(strFile, InStrRev(strFile, "") + 1) '返回结果：TPA_Report1 - 副本.CSV

    conn.Open "DRIVER={Microsoft Text Driver (*.txt; *.csv)};" & _
                "DBQ=" & strFilePath & ";", "", ""
    
    rs.Open "select * from [" & strFileName & "]", conn, adOpenStatic, _
                adLockReadOnly, adCmdText
    Set Read_CSVFile = rs
    Set rs = Nothing
    Set conn = Nothing
End Function

2、调用上面的Function：

Private Sub cmdUpload_Click()
    Dim rsData As ADODB.Recordset 'CSV中的所有的数据
    Dim rsUploadLog As ADODB.Recordset '上传纪录

    '取得CSV中所有的数据
    Set rsData = Read_CSVFile(txtFileName.Text)
    
    If rsData.RecordCount > 0 Then
        DoEvents
        Dim iTotal As Integer
        iTotal = 0
        
        rsData.MoveFirst
        Do While Not rsData.EOF '循环数据集
            'UploadLog
            rsUploadLog.AddNew
            rsUploadLog!Row = iTotal + 1
            rsUploadLog!Createby = sUserID
            rsUploadLog!CreateDate = dServerdateTime
            rsUploadLog!Note = rsData.Fields("投保人名字") & "" '“投保人名字”为CSV文件的表头
            iTotal = iTotal + 1
            DoEvents
            rsData.MoveNext
        Loop
                
        '一批数据里面有的成功,有的失败.进行保存的时候,成功的就保存更新，不成功的就不保存
        If Not BatchSaving(conn, rsUploadLog) = True Then
            MsgBox "Upload un-successfully done", vbInformation, sApplicName
        Else
            MsgBox "Upload successfully done", vbInformation, sApplicName
        End If
    End If
    '释放资源，否则CSV打开会是只读状态
    rsData.Close
    Set rsData.ActiveConnection = Nothing
    Set rsData = Nothing
    Exit Sub
End Sub