>

>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
>

Not really sure, but I do see that this line:

DoCmd.RunSQL "Delete * from do_not_call'"

includes a ' without a matching beginning. I would have expected something more like:

DoCmd.RunSQL "Delete * from 'do_not_call'"