，请教各位高手，我用了一组单选按钮来选择要将相应的excel表导入到access库中的相应表中，当access库中的各表中数据为空时，各excel表都能够成功导入，但一旦access库中的个别表中有数据后，再导入excel表时，就不提示导入成功了，库中的相应表中也没有被导入数据。

我用的是如下代码：
<%
    Dim excConn,Coon
    Dim excStrConn,strConn
    Dim excrs,rs
    Dim excSql
    Set excconn=Server.CreateObject("ADODB.Connection")
    Set excrs = Server.CreateObject("ADODB.Recordset")
    excStrConn="Driver={Microsoft Excel Driver (*.xls)};DriverId=790;   DBQ="&Server.MapPath("database/sbfhs.xls")
    excconn.Open excStrConn
    excSql="select * from [sbfhs$]"  '查询excel语句
    excrs.Open excSql,excconn,2,2  
        set rs=server.createObject("ADODB.Recordset")
        Set conn=Server.CreateObject("ADODB.Connection")
        StrConn="provider=microsoft.jet.oledb.4.0; data source="&Server.MapPath("database/yjglxt.mdb")
        conn.Open StrConn
        sql="select * from clfhs"  '修改
        rs.open sql,conn,1,3
            do while Not excrs.EOF
                rs.addnew
                    for i=0 to excrs.Fields.Count-1
                        rs(i)=excrs(i)
                    next
                rs.update
                excrs.MoveNext
            Loop
        rs.close
        set rs1=nothing
    excrs.close
    set excrs=nothing
    excConn.close
    set excConn=nothing
    conn.close
    set conn=nothing
    response.write" 数据导入成功！"
    response.end
%>
请yms123版主帮我看看代码有没有问题。

我的access表就是正常在access软件中进行建立的，我的excel表就是通过access表导出的。

表格里有编号的字段