Public Function DatenbankConnect()
On Error GoTo Fehler
 
    Set ADOcn = New ADODB.Connection               ' neue ADODB-Verbindung als 
    ' ADOcn
    Set ADOrs = New ADODB.Recordset                ' Setzen eines neuen 
    ' Recordsets
 
    ' Datenbankpfad
    DBPfad = App.Path & "\NefkomRechnungen.mdb"
 
    ' Provider auswählen + Datenbankpfad
    With ADOcn
      .CursorLocation = adUseClient
      .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security" & _
        "Info = False;Data Source=" & DBPfad
      .Open
    End With
 
    'Recordset für alle Tabellen, es kommt drauf an, welche strQuelle 
    ' ausgewählt wird (strQuelle = Tabellenname)
    With ADOrs
      .ActiveConnection = ADOcn
      .Source = "Rechnungen"
      .CursorType = adOpenStatic
      .LockType = adLockPessimistic
      .Open
    End With
 
 
Exit Function
Fehler:
   MsgBox "Fehler in DatenbankConnect: " & Err.Description, vbExclamation, _
     "Fehler im Modul - DatenbankConnect"
End Function
[/code
 
]<pre><code>Private Sub Form_LostFocus()
On Error GoTo Fehler
 
    Datenbank_schliessen
 
Exit Sub
Fehler:
    MsgBox Err.Description, vbExclamation, "Fehler in Form1 - Form_LostFocus"
End Sub

Public Function Datenbank_schliessen()
On Error GoTo Fehler
    'Datenbank schließen
    rstTabelle.Close
    DB.Close
    Set rstTabelle = Nothing
    Set DB = Nothing
Exit Function
Fehler:
    MsgBox Err.Description, vbExclamation, "Fehler in Form1 -" & _
      "Datenbank_schliessen"
End Function

Public Function Text_einlesen()
On Error GoTo Fehler
 
    Dim i
    Dim Daten() As String
    Dim SpezDateiname As String
    SpezDateiname = App.Path & "\NefkomRechnungen.mdb"
 
    Form2.Show                    ' Status Anzeige
 
    ExcelNefkom
 
    Spezifikation_Erstellen SpezDateiname
    Textdatei_Importieren SpezDateiname, App.Path & "\csvdatei.csv"
 
     Unload Form2
 
 
Exit Function
Fehler:
    If Err.Number = "3204" Then
 
        If ADOrs.State = "1" Then
            ADOrs.Close
            Set ADOrs = Nothing
            Datenbank_schliessen
        End If
 
        MsgBox "ADOrs.State: " & ADOrs.State
 
        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

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.