cdlöffnen.InitDir = CurDir
        cdlöffnen.Filter = "*.mdb (Accesdatei)| *.mdb"
        cdlöffnen.DialogTitle = "Geben sie unten den Dateinamen ein"
        cdlöffnen.CancelError = True
        On Error goto Err
        cdlöffnen.ShowOpen
        dbfile = cdlöffnen.FileName
Err:
        if err.number = 32755 then
                'abgebrochen durch nutzer
        elseif err.number = 0 then
                'kein fehler
        else
                'anderer fehler
        end if

???????????????????????????????????????????????????????????
e7o.de | jetzt (wirklich) neu!