如果考虑速度，请用DataGrid，不要用MSFlexGrid或者MSHFlexgid。

忘了发附件了!!看看代码!!

整理修改一下你的代码：

Dim sFile As String
    Dim sFileRows() As String
    Dim tmp() As String
    Dim Idx As Long
    Dim r As Long, c As Long
    
    If CommonDialog1.FileName <> "" Then
        Open CommonDialog1.FileName For Binary As #1
            sFile = Space(LOF(1))
            Get #1, , sFile
        Close
    Else
        Exit Sub
    End If
    
    sFileRows = Split(sFile, vbCrLf)
    r = 1
    For Idx = 0 To UBound(sFileRows)
        If Trim(sFileRows(Idx)) <> vbNullString Then
            If r > 1 Then MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1
            tmp = Split(sFileRows(Idx), ",")
            For c = 0 To MSFlexGrid1.Cols - 1
                MSFlexGrid1.TextMatrix(r, c) = tmp(c)
            Next c
            r = r + 1
        End If
    Next
            
MsgBox "   数据导入完成！   共打开 " & MSFlexGrid1.Rows / 2 & " 行数据！  "

用数据库的方法打开，方能达到最好的速度，请见例子：

http://upload.programfan.com/upfile/20080116151979.rar