Warning in Code

[cyberexe]

ik ben geen held in het maken van VBA code. daarom vraag ik hierbij jullie hulp.

ik ben heel lang op zoek geweest naar een manier om een bestand te importeren in mijn Access database met vaste specificaties van importeren ( config file ).
nu heb ik een code op internet gevonden wat mij de mogelijkheden geeft om een bestand te selecteren en die te importeren.
deze code heb ik als actie in de Sub _Click van een knop gezet.

hij geeft nu de volgende foutmelding:

Verwacht: =

ook is het soms het geval dat er een venster opent met een macro selectie scherm.
echter moet hij een venster weergeven dat de optie bied een bestand (csv) te selecteren.

hier is mijn code, hopelijk kunnen jullie er iets mee.

Private Sub test_import_Click()

Dim fDialog As Office.FileDialog
Dim varFile As Variant
 
DoCmd.SetWarnings False
 
'Set up the File Dialog
Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
With fDialog
  .AllowMultiSelect = False
  .Title = "Selecteer het bestand dat u wilt importeren"
  .InitialFileName = "C:\*.csv"
  
  'Clear out any Filters, then Add you own (1)
  .Filters.Add "Text Files", "*.CSV"
  
  'Show the Dialog. If the Show Method returns True, the User picked
  'at least 1 File, otherwise the User clicked Cancel
  If .Show Then
    For Each varFile In .SelectedItems
      'There will be only 1 File selected, so place the proper Arguments into the TransferText Method
      DoCmd.TransferText(acImportDelim, importeren, Vfrapnl, varFile, False, "", "")
    Next
  Else      'Nothing selected in File Dialog
  End If
End With

Exit_test_import_Click:
    Exit Sub

Err_test_import_Click:
    MsgBox Err.Description
    Resume Exit_test_import_Click
    
End Sub

 

[snb]

Ik vermoed hier:
verwijder de haakjes uit

DoCmd.TransferText(acImportDelim, importeren, Vfrapnl, varFile, False, "", "")

zodat dit resteert:

DoCmd.TransferText acImportDelim, importeren, Vfrapnl, varFile, False