Public Function Text_einlesen()
On Error GoTo Fehler
 
    SpezDateiname = App.Path & "\NefkomRechnungen.mdb"
 
    Form2.Show
 
    ExcelNefkom
 
    Spezifikation_Erstellen SpezDateiname
    Textdatei_Importieren SpezDateiname, App.Path & "\csvdatei.csv"
 
     Unload Form2
 
Exit Function
Fehler:
    If Err.Number = "3204" Then
        On Error GoTo Fehler
 
        ADOcn.Close
        Set ADOcn = Nothing
 
        Kill SpezDateiname
 
        Spezifikation_Erstellen SpezDateiname
        Textdatei_Importieren SpezDateiname, App.Path & "\csvdatei.csv"
 
        Unload Form2
        Exit Function
     Else
        MsgBox Err.Description, vbExclamation, "Fehler in Form1 - Text einlesen"
        MsgBox "Fehlernummer: " & Err.Number
     End If
End Function

Private Sub Command1_Click()
On Error GoTo Fehler
 
ADOcn.Close
Set ADOcn = Nothing
 
SpezDateiname = App.Path & "\NefkomRechnungen.mdb"
 
Set fso = CreateObject("Scripting.FileSystemObject")
 
    'Datenbank löschen
    If (fso.FileExists(SpezDateiname)) Then
        Set fi = fso.GetFile(SpezDateiname)
        fi.Delete
    End If
 
    Unload Me
 
Exit Sub
Fehler:
    MsgBox Err.Description, vbExclamation, "Fehler in Form1 - Command1_Click"
End Sub

Gruss
Agnes

------------------------------------
Wenn wir heut gemeinsam starten
und wir alle viel erwarten,

denken wir an jedem Tag daran,
dass man es nur schaffen kann,

wenn wir fest zusammen stehen
und den Weg gemeinsam gehen.