关于access数据库导入excel表的问题

此图为数据库里的产品表

此图为excel里面的数据

现在我要把excel里面的数据导入到产品表里，但是该如何依次循环导入到配件1，配件2...，价格1，价格2...请大侠们支支招

导入代码 如下，如果产品号为唯一的情况下，以下代码是没有问题的

'将数据读入数据库
dim conn
dim conn2
'连接目的数据表

set conn=CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Data Source=" & Server.MapPath("../../DataBase/shujuku.mdb")
'连接待读入excel数据表
set conn2=CreateObject("ADODB.Connection")
conn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Extended properties='Excel 5.0;hdr=yes;imex=1';Data Source="& Server.MapPath("upload/"&FileName)
'查询待读入excel数据表
sql = "SELECT * FROM [Sheet1$]"
set rs = conn2.execute(sql)
'将数据循环读入目的数据库
while not rs.eof
'查询相同的数据，以产品号为唯一标识
dim icount
checksamesql="select 产品号 from 产品表 "
set checksamers = conn.execute(checksamesql)
icount = checksamers.recordcount
checksamers.close
set checksamers= nothing
sql = "update t_tdd set 配件1='"& fixsql(rs(1)) &"',价格1='"& fixsql(rs(2)) &"' where 产品号 = '"& fixsql(rs(0)) &"'"
conn.execute(sql)
rs.movenext
wend
set oFile=nothing'释放文件对象
next