如何提高读取excel表中的大量数据

我现在正在用vb来读取excel表中的数据,表中数据量比较大,超过1万个数据量了,读取速度非常慢.
请问哪位高手知道如何提高这个读取速度.谢谢!!
急!!! --------------------编程问答-------------------- 哪你是怎么读的？ --------------------编程问答-------------------- ODBC链接EXCEL，ADO链接ODBC可快速将EXCEL变成一个表，不过第一行被默认为字段名 --------------------编程问答-------------------- Set rs = New ADODB.Recordset
    rs.CursorLocation = adUseClient
    rs.CursorType = adOpenKeyset
    rs.LockType = adLockBatchOptimistic

    '字段限定255!!!!
    sConn = "DRIVER=Microsoft Excel Driver (*.xls);" & "DBQ=" & sPath
    rs.Open "SELECT * FROM [sheet1$]", sConn
    rs.MoveFirst

    iCols = rs.Fields.Count - 1
    iRows = rs.RecordCount - 1

补充：VB ,  数据库(包含打印，安装，报表)