Private Sub ImportFile(strFullFile As String) Application.SetOption "Confirm Action Queries", 0 Application.SetOption "Confirm Document Deletions", 0 Application.SetOption "Confirm Record Changes", 0 DoCmd.RunSQL "Delete * from do_not_call'" DoCmd.TransferText acImportDelim, "", "Do_Not_Call", strFullFile, False End Sub