遇到困難了!!求救！

最近在有朋友說要把些excel資料輸入輸入到access資料庫中。太多了，找偶幫忙。我在網上找了段代碼，試了下，沒成功。結果是有的資料正常匯入進去了，有的匯入到資料庫裡顯示的是空，有的確導不進去。請朋友們抽空給診診。代碼如下：

 

<%
dim FileName
FileName="excel.xls"  '取得檔案名稱，來自專案經理的指定，路徑固定在某個虛擬路徑中
Dim conn, rs
set conn=CreateObject("ADODB.connection")
conn.Open "Driver={Microsoft Excel Driver (*.xls)};" & _
         "DriverId=790;" & _
         "Dbq=" & server.mappath(""&FileName&"") & ";" & _
         "DefaultDir=G:/"

set rs=createobject("ADODB.recordset")
rs.Open "Select * From [Sheet1$]",conn, 2, 2
if rs.eof then
 response.write "Excel表中無紀錄"
else
  set connDB = Server.CreateObject("ADODB.Connection")
  DBPath = Server.MapPath("excel.mdb")
  'RESPONSE.WRITE DBpath
  connDB.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
  Set RsDB = Server.CreateObject("ADODB.Recordset")
  SqlDB="Select * from excel"
  RsDB.open sqlDB,connDB,1,3
 do while not  rs.eof '利用迴圈讀出資料
' response.write rs(0)&"&nbsp;"
' response.write rs(1)&"&nbsp;"
' response.write rs(2)&"&nbsp;"
' response.write rs(3)&"&nbsp;"
' response.write rs(4)&"&nbsp;"
' response.write rs(5)&"&nbsp;"
' response.write rs(6)&"&nbsp;"
' response.write rs(7)&"&nbsp;"
' response.write rs(8)&"&nbsp;"
' response.write rs(9)&"&nbsp;"
' response.write rs(10)&"&nbsp;"
' response.write rs(11)&"&nbsp;"
' response.write rs(12)&"&nbsp;"
' response.write rs(13)&"&nbsp;"
' response.write rs(14)&"&nbsp;"
' response.write rs(15)&"&nbsp;"
' response.write rs(16)&"&nbsp;"
' response.write rs(17)&"&nbsp;"
' response.write rs(18)&"&nbsp;"
' response.write rs(19)&"&nbsp;"
' response.write rs(20)&"&nbsp;"
' response.write rs(21)&"&nbsp;"
' response.write rs(22)&"&nbsp;"
' response.write rs(23)&"&nbsp;"
' response.write rs(24)&"&nbsp;"
' response.write rs(25)&"&nbsp;"
' response.write rs(26)&"&nbsp;"
' response.write rs(27)&"&nbsp;"
' response.write rs(28)&"&nbsp;"
' response.write rs(29)&"&nbsp;"
' response.write rs(30)&"&nbsp;"
' response.write rs(31)&"&nbsp;"
' response.write rs(32)&"&nbsp;"
' response.write rs(33)&"&nbsp;"
' response.write rs(34)&"&nbsp;"
' response.write "<br>"
    RsDB.addnew
 RsDB("MemberID")=rs(0)
 RsDB("Name")=rs(1)
 RsDB("BiName")=rs(2)
 RsDB("TuanTi")=rs(3)
 RsDB("Mobile")=rs(4)
 RsDB("Tel")=rs(5)
 RsDB("ID")=rs(6)
 RsDB("RuHuiDay")=rs(7)
 RsDB("Sex")=rs(8)
 RsDB("BirthDay")=rs(9)
 RsDB("ZhiCheng")=rs(10)
 RsDB("Native")=rs(11)
 RsDB("Party")=rs(12)
 RsDB("Nation")=rs(13)
 RsDB("XueLi")=rs(14)
 RsDB("DanWei")=rs(15)
 RsDB("Zip")=rs(16)
 RsDB("Address")=rs(17)
 RsDB("recommend1")=rs(18)
 RsDB("recommend2")=rs(19)
 RsDB("ShenPiYiJian")=rs(20)
 RsDB("YiShuZC")=rs(21)
 RsDB("YiShuJianLi")=rs(22)
 RsDB("ZhaoPian")=rs(23)
 RsDB("Status")=rs(24)
 RsDB("RegisterTime")=rs(25)
 RsDB("UpdateTime")=rs(26)
 RsDB("UploadTime")=rs(27)
 RsDB("Level")=rs(28)
 RsDB("StandBy1")=rs(29)
 RsDB("StandBy2")=rs(30)
 RsDB("StandBy3")=rs(31)
 RsDB("StandBy4")=rs(32)
 RsDB("StandBy5")=rs(33)
 RsDB("StandBy6")=rs(34)
 Rs.update
 RsDB.movenext
 rs.movenext
 loop
'response.redirect FileName
end if
RsDB.movefirst
if RsDB.eof then
   response.write "資料庫中無記錄"
else
   do while not RsDB.EOF
    response.write RsDB("MemberID")&"&nbsp;"
    response.write RsDB("Name")&"&nbsp;"
    response.write RsDB("BiName")&"&nbsp;"
    response.write RsDB("TuanTi")&"&nbsp;"
    response.write RsDB("Mobile")&"&nbsp;"
    response.write RsDB("Tel")&"&nbsp;"
    response.write RsDB("ID")&"&nbsp;"
    response.write RsDB("RuHuiDay")&"&nbsp;"
    response.write RsDB("Sex")&"&nbsp;"
    response.write RsDB("BirthDay")&"&nbsp;"
    response.write RsDB("ZhiCheng")&"&nbsp;"
    response.write RsDB("Native")&"&nbsp;"
    response.write RsDB("Party")&"&nbsp;"
    response.write RsDB("Nation")&"&nbsp;"
    response.write RsDB("XueLi")&"&nbsp;"
    response.write RsDB("DanWei")&"&nbsp;"
    response.write RsDB("Zip")&"&nbsp;"
    response.write RsDB("Address")&"&nbsp;"
    response.write RsDB("recommend1")&"&nbsp;"
    response.write RsDB("recommend2")&"&nbsp;"
    response.write RsDB("ShenPiYiJian")&"&nbsp;"
    response.write RsDB("YiShuZC")&"&nbsp;"
    response.write RsDB("YiShuJianLi")&"&nbsp;"
    response.write RsDB("ZhaoPian")&"&nbsp;"
    response.write RsDB("Status")&"&nbsp;"
    response.write RsDB("RegisterTime")&"&nbsp;"
    response.write RsDB("UpdateTime")&"&nbsp;"
    response.write RsDB("UploadTime")&"&nbsp;"
    response.write RsDB("Level")&"&nbsp;"
    response.write RsDB("StandBy1")&"&nbsp;"
    response.write RsDB("StandBy2")&"&nbsp;"
    response.write RsDB("StandBy3")&"&nbsp;"
    response.write RsDB("StandBy4")&"&nbsp;"
    response.write RsDB("StandBy5")&"&nbsp;"
    response.write RsDB("StandBy6")&"&nbsp;"
    response.write "<br>"
    RsDB.movenext
   loop
end if
rs.close
set rs=nothing
set conn=nothing
%>