oppure prima di fare la open del file controlli che esista

codice:
dim sFile as string

    sFile = cd1.filename
    if dir$(sfile) <> "" then
        open sfile ...
    end if