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

把excel带表头导入到listview
如题，不知道怎么弄，请大家帮忙，最好同时也放到SQL SERVER里。万分感谢。

[解决办法]

VB code

        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