Importere Excel ind i ListView

Rettelse... Hvordan importere jeg Excel ind i et MSFlexGrid?

//>Rune

Private Sub Form_Load()
    Dim obj_Excel As Excel.Application
    Dim obj_WorkSheet As Worksheet
    Set obj_Excel = CreateObject("Excel.Application")
obj_Excel.Workbooks.Open "C:\PathToExcel.xls"
    Set obj_WorkSheet = ActiveSheet
    MSFlexGrid1.Rows = 101
    MSFlexGrid1.Cols = 6
    For i = 1 To 100
   
        For j = 1 To 5
            MSFlexGrid1.TextMatrix(i, j) = obj_WorkSheet.Cells(i, j)
        Next
       
    Next i
    Set obj_WorkSheet = Nothing
    Set obj_Excel = Nothing
End Sub

..du kan rode lidt med noget update af formen for at få preformence osv...

fik det ikke til at virke.. :-( - har droppet det.. -men tak for hjælpen!

//>Rune