FileName:=GetFileName, _

Option Compare Database
Option Explicit

Sub Validate()

    'Process:
    '1. Get OpenFileName <- Use late binding MSO 12.0 Object Library
    '2. Import the user selected file


    'Reources
    
    'Date       Developer       Action                      Comments
    '---------------------------------------------------------------------------------
    '05/07/12   ws              Created
    
    'Initialize
     DoCmd.SetWarnings False
     Dim xAeorPLCntry As AccessObject
    
    
    'Get file name
     Call GetFileName
    
    'Import the selected file
     DoCmd.TransferText Transfertype:=acImportDelim, _
     SpecificationName:="specImportCustomer", _
     TableName:="xCustomer", _
     FileName:=GetFileName, _
     HasFieldNames:=False


    'Tidy up
     DoCmd.SetWarnings True
    


End Sub


Public Function GetFileName() As String
    Dim fDialog As Object
    Const msoFileDialogFilePicker As Integer = 1
    Dim strUserFile As String

    Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
    Dim varFile As Variant

    With fDialog
        .AllowMultiSelect = False
        .Title = "Select file to import"
        .InitialFileName = "C:\tmp\"
        .Show
    End With
    
    GetFileName = varFile
    strUserFile = varFile
End Function

'Import the selected file
     DoCmd.TransferText Transfertype:=acImportDelim, _
     SpecificationName:="specImportCustomer", _
     TableName:="xCustomer", _
     FileName:=GetFileName(), _ '<-Changed    
     HasFieldNames:=False