把excel带表头导入到listview,该如何解决

        Set Conn_qc = Server.CreateObject("ADODB.Connection")
    Driver = "Provider=Microsoft.Jet.OLEDB.4.0;"
    DBParm = "Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"";"
    DBPath = "Data Source=" & tmpfilename & ";" 
    Conn_qc.Open Driver & DBPath & DBParm
    
    Set rst=Conn_qc.OpenSchema(20)
    TableName = rst("Table_name")
    rst.Close
    
    Sql="Select * From [" & TableName & "]"
    
    
    rst.open sql, Conn_qc, 1, 1 
    if rst.recordcount<>0 then
    
        for j=0 to rst.recordcount-1

                            
                sql="insert into tbltest(Code,Name) values('"& rst(1) &"','"& rst(5) &"') "
                conn.execute(sql)


                end if    
            end if
            rst.movenext
        next
    end if
    rst.close
    set rst=nothing
    Conn_qc.close