利用VBA将excel数据导入access中

'在access里利用VBA，将EXCEL数据导入
Option Compare Database
Option Explicit
-----------------------------------------------
Public Sub FileSelect()

On Error GoTo ErrorHandler
Dim Returnvalue As Variant
Dim strmsg As String

Returnvalue = SysCmd(acSysCmdAccessVer)
strmsg = "Is it Access2002、2003、2007?"

'Access版本的确认
'Access2000=10.0、Access2000=9.0,Access97=8.0,Access95=7.0。
'Access2003=11.0、Access2007=12.0

If Returnvalue = "10.0" Or Returnvalue = "11.0" Or Returnvalue = "12.0" Then

Dim inttype As Integer
Dim varSelectedFile As Variant

'file的选择、msofiledialogfilepicker
'folder的选择、msofiledialogfolderpicker

inttype = Application.FileDialog(msoFileDialogFilePicker)

With inttype

.Title = "By Microsoft Access Club"

.Filters.Add "Excel file", "*.xls"

.Filters.Add "all file", "*.*"

.AllowMultiSelect = False

.InitialFileName = CurrentProject.PATH

If .Show = -1 Then
For Each varSelectedFile In .SelectedItems
FileSelect = varSelectedFile
Next
End If

End With

Else

MsgBox strmsg, vbOKOnly, "Microsoft Access Club"

End If

Exit Sub
ErrorHandler:
MsgBox Err.Number & Chr(13) & _
& Err.Description, vbOKOnly
End
End Sub
'------------------------------------------------------------
'
'
'------------------------------------------------------------
Function Excelinport()
On Error GoTo Excelinport_Err
Dim FileName As String
FileName = FileSelect

DoCmd.TransferSpreadsheet acImport, 8, "T_Import", FileName, True, ""

Excelinport_Exit:
Exit Function
Excelinport_Err:
MsgBox Error$
Resume Excelinport_Exit
End Function
请问为什么会提示(msoFileDialogFilePicker)没定义！

相关了解……