Kun tøm en tabel hvis en fil er valgt

Hje

Jeg bruger denne kode til at udskifte nogle adresser, men hvis man kommer til at trykke annuller, under fil valg køre den de 2 sletteforspørgelser alligevel, er der en måde mankan undgå det på ??

Min kode

Private Sub importdnkadresser_Click()
On Error GoTo Err_import_file


DoCmd.SetWarnings False
Dim strFilter As String
Dim strInputFileName As String




strFilter = ahtAddFilterItem(strFilter, "Danske Signaladresser (dnk.csv)", "dnk.csv")
strInputFileName = ahtCommonFileOpenSave( _
                Filter:=strFilter, OpenFile:=True, _
                DialogTitle:="Please select an input file...", _
                Flags:=ahtOFN_HIDEREADONLY)

DoCmd.OpenQuery "dnk_slet_startadresser"
DoCmd.OpenQuery "dnk_slet_fra_adresse"
               
FileCopy strInputFileName, "c:\windows\temp\import.csv"

DoCmd.TransferText acImportDelim, "dnk_adresse_import", "dnk_startadresser", "c:\windows\temp\import.csv", False, ""

Kill "c:\windows\temp\import.csv"

Err_import_file:
If Err.Number = 53 Then
Exit Sub
Else
'MsgBox Err.Number & " - " & Err.Description

End If
End Sub

/lars