access窗体下的导入按钮，为何无法将要导入的数据存储到相应表中？

本人小新手一名，想做一个导入窗体，但是代码写好后，发现无法将execl表格中的内容导入到access表中，请高手指教！感谢！！！

Private Sub 导入_Click()
    Dim i As Integer
    Dim filepath As String
    Dim ssql As String
    Dim rs As New ADODB.Recordset
    Dim j As Integer
    
    If Me.文件列表.RowSource = "" Then Exit Sub
    
    For i = 0 To Me.文件列表.ListCount - 1
        Me.文件列表.Selected(i) = True
        filepath = Me.文件列表.Column(0)
        ssql = "select * from [Sheet1$] in '" & filepath & "'[EXCEL 8.0;]"
        
        rs.Open ssql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
            For j = 1 To rs.RecordCount
                      
                ssql = "insert into 飞机交付遗留问题 (序号,类型,代码,编号,机型,出厂架次,出厂日期,用户机号,单内序号,问题分类,问题项目,负责单位,负责人,拉条挂账/合同,拉条挂账,拉条进展,进展详细,记录人,记录日期,计划解决日期,实施单位,实施人,检查人,实施日期,实施检查情况,用户意见,签字人,签字日期,服务通报,拉条挂账编号,反馈单是否返回,对应反馈单号,是否闭环,目前状态,备注,date(),关注度,通报编号,附件) values (#"
                              
                ssql = ssql & rs!序号.Value & "','"
                ssql = ssql & rs!类型.Value & "','"
                ssql = ssql & rs!代码.Value & "','"
                ssql = ssql & rs!编号.Value & "','"
                ssql = ssql & rs!机型.Value & "','"
                ssql = ssql & rs!出厂架次.Value & "','"
                ssql = ssql & rs!出厂日期.Value & "','"
                ssql = ssql & rs!用户机号.Value & "','"
                ssql = ssql & rs!单内序号.Value & "','"
                ssql = ssql & rs!问题分类.Value & "','"
                ssql = ssql & rs!问题项目.Value & "','"
                ssql = ssql & rs!负责单位.Value & "','"
                ssql = ssql & rs!负责人.Value & "','"
                ssql = ssql & rs![拉条挂账/合同].Value & "','"
                ssql = ssql & rs!拉条挂账.Value & "','"
                ssql = ssql & rs!拉条进展.Value & "','"
                ssql = ssql & rs!进展详细.Value & "','"
                ssql = ssql & rs!记录人.Value & "','"
                ssql = ssql & rs!记录日期.Value & "','"
                ssql = ssql & rs!计划解决日期.Value & "','"
                ssql = ssql & rs!实施单位.Value & "','"
                ssql = ssql & rs!实施人.Value & "','"
                ssql = ssql & rs!检查人.Value & "','"
                ssql = ssql & rs!实施日期.Value & "','"
                ssql = ssql & rs!实施检查情况.Value & "','"
                ssql = ssql & rs!用户意见.Value & "','"
                ssql = ssql & rs!签字人.Value & "','"
                ssql = ssql & rs!签字日期.Value & "','"
                ssql = ssql & rs!服务通报.Value & "','"
                ssql = ssql & rs!拉条挂账编号.Value & "','"
       ssql = ssql & rs!反馈单是否返回.Value & "','"
       ssql = ssql & rs!对应反馈单号.Value & "','"
            ssql = ssql & rs!是否闭环.Value & "','"
             ssql = ssql & rs!目前状态.Value & "','"
              ssql = ssql & rs!备注.Value & "','"
                ssql = ssql & rs![date()].Value & "','"
                ssql = ssql & rs!关注度.Value & "','"
                ssql = ssql & rs!通报编号.Value & "',"
                ssql = ssql & rs!附件.Value & ")"
          
        rs.MoveNext
        Next
        rs.Close
    Next
    Me.飞机交付遗留问题子窗体.Form.Requery


   
    
    MsgBox "导入完成，请核对导入数据。"
    
   
End Sub