导入数据后没信息显示

 On Error GoTo 错误标签
    Dim strFileName As String
    Dim strSQL As String
    Dim rst As Object
    Dim strNumber As String
    
    '通过对话框取得Excel文件名
    With Application.FileDialog(3) 'msoFileDialogFilePicker
        .InitialFileName = ""
        .InitialFileName = CurrentProject.Path & "\"
        .Filters.Clear
        .Filters.Add "Excel 工作簿文件", "*.xlsx"
        If Not .Show Then Exit Sub
        strFileName = .SelectedItems(1)
    End With
    
    '将Excel中的数据导入数据库生成临时表
    '注意：这里使用DoCmd.RunSQL方法和CurrentProject.Connection.Execute方法来执行生成表查询都能实现直接覆盖已存在的表，
    '但是用CurrentDb.Execute则不能覆盖，表已存在时会出错！
     Me.查询子窗体.Form.RecordSource = ""
     DoCmd.SetWarnings False
'    CurrentProject.Connection.Execute "SELECT * INTO 副本 FROM [Sheet1$] IN '" & strFileName & "'[Excel 8.0;]"
     DoCmd.RunSQL "SELECT * INTO 副本 FROM [Sheet1$] IN '" & strFileName & "'[Excel 8.0;]"
   
'     DoCmd.DeleteObject acTable, "副本"
'
    Me.查询子窗体.Form.RecordSource = "副本"
    
    Me.查询子窗体.Requery
    
    MsgBox "导入完成。", vbInformation, "提示"
    
退出标签:
    DoCmd.SetWarnings True
    Exit Sub
    
错误标签:
    If Err = -2147467259 Then
        MsgBox "#-2147467259 工作表名称必须设为“Sheet1”。", vbCritical, "错误"
    Else
        MsgBox "#" & Err & " " & Err.Description, vbCritical, "错误"
    End If
    Resume 退出标签