I've tested the code just with the one line in it and it still errors:
- Private Sub cmdImportJobs_Click()
-
-
'---------------------------------------------------------
-
'Declare a variable as a FileDialog object.
-
'---------------------------------------------------------
-
Dim fd As FileDialog
-
-
'---------------------------------------------------------
-
' Create a FileDialog object as a File Picker dialog box.
-
'---------------------------------------------------------
-
Set fd = Application.FileDialog(msoFileDialogFilePicker)
-
-
End Sub
I have the following references:
Visual Basic for Applications
Microsoft Access 11.0 Object Library
OLE Automation
Microsoft DAO 3.6 Object Library
Microsoft ActiveX Data Objects 2.5 Library