I have the following VBA code:
Dim dkg As Variant, str As String
dkg = Application.FileDialog(msoFileDialogFilePicker).Show
str = Application.FileDialog(msoFileDialogFilePicker).SelectedItems(1)
DoCmd.TransferText acImportDelim, "OnyxSRImportSpecification"...