excel导入access,能成功实现,但是不定时的数据串行

用access画了个窗体按钮代码是

Private Sub inputdata_Click()
On Error GoTo Err_inputdata_Click
    
    Dim l As Long
    With Application.FileDialog(msofiledialogfilepicker)
        .InitialFileName = CurrentProject.Path & "\"
        .AllowMultiSelect = False   '单选择
        .Filters.Clear     '清除文件过滤器
        .Filters.Add "Excel Files", "*.xls;*.xlsx"
        .Filters.Add "All Files", "*.*"    '设置两个文件过滤器
        If .Show = -1 Then
            'FileDialog 对象的 Show 方法显示对话框，并且返回 -1（如果您按 OK）和 0（如果您按 Cancel）。
            'MsgBox "您选择的文件是：" & .SelectedItems(1), vbOKOnly + vbInformation, "提示"
            DoCmd.SetWarnings False
            DoCmd.RunSQL "delete * from  业主信息"
            DoCmd.TransferSpreadsheet acImport, , "业主信息", .SelectedItems(1), True, "导入数据库$"
            DoCmd.DeleteObject acTable, "导入数据库$_输入错误"
            DoCmd.DeleteObject acTable, "名称自动更正保存失败"
            DoCmd.SetWarnings True
            MsgBox "操作成功，可以进行下一步"
        End If
    End With

Exit_inputdata_Click:
    Exit Sub

Err_inputdata_Click:
    MsgBox Err.Description
    Resume Exit_inputdata_Click
    
End Sub

测试的时候一切正常,出异常后重复操作几次也恢复正常,但是每当处理数据的时候就不一定什么时候串行了.

DoCmd.TransferSpreadsheet acImport, , "业主信息", .SelectedItems(1), True, "导入数据库$"

有没有朋友知道速度快的excel导入access代码?