First of all, I'ld like to thank you very much for your help. So all I have to do, is to take the form of the example and instead of view file, I make it import, by changing the command in this!?
Dim retval As Variant
If Me.DocPath > "" Then
retval = DoCmd.TransferDatabase acImport, "Microsoft Access", "Me.DocPath", acTable, "name of table"
Else
MsgBox "There is no file to view."