Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim strSQL As String
 
    '   Datenbank öffnen
    strSQL = App.Path
    If (Right$(strSQL, 1) <> "\") Then
        strSQL = strSQL & "\"
    End If
    strSQL = "Daten\Schnittdaten.mdb"
    Set db = OpenDatabase(strSQL)
 
    '   Evt. vorhandenen Datensatz raussuchen
   strSQL = "SELECT ID FROM Schnittdaten WHERE " & _
                                      "(Werkstoff = " & Chr$(39) & _
                                      txtWerkstoff.Text & Chr$(39) & ");"
    Set rs = db.OpenRecordset(strSQL, DAO.RecordsetTypeEnum.dbOpenSnapshot, _
    DAO.RecordsetOptionEnum.dbSQLPassThrough)
 
    '   Wurde ein Datensatz gefunden?
    If Not (rs.EOF) Then
        '   Ja, den gefundenen Datensatz ändern
        strSQL = "UPDATE Schnittdaten SET Drehzahl = " & Chr$(39) & _
          txtDrehzahl.Text & Chr$(39) & ", " & _
                                      "Bohren = " & Chr$(39) & txtBohren.Text & _
                                      Chr$(39) & ", " & _
                                      "Drehen = " & Chr$(39) & txtDrehen.Text & _
                                      Chr$(39) & ", " & _
                                      "Fräsen = " & Chr$(39) & txtFräsen.Text & _
                                      Chr$(39) & ", " & _
                                      " WHERE ID = " & rs.Fields("ID").Value & _
                                      ";"
    Else
        '   Nein, neuen Datensatz erstellen
        strSQL = "INSERT INTO Schnittdaten (Werkstoff, Drehzahl, Bohren," & _
          "Drehen, Fräsen) VALUES (" & _
                                      Chr$(39) & txtWerkstoff.Text & Chr$(39) & _
                                      ", " & _
                                      Chr$(39) & txtDrehzahl.Text & Chr$(39) & _
                                      ", " & _
                                      Chr$(39) & txtBohren.Text & Chr$(39) & "," & _
                                      "" & _
                                      Chr$(39) & txtDrehen.Text & Chr$(39) & "," & _
                                      "" & _
                                      Chr$(39) & txtFräsen.Text & Chr$(39) & _
                                      ");"
    End If
 
    '   Abfrage nach vorhandenem Datensatz schließen
    Call rs.Close
    Set rs = Nothing
 
    '   Änderungs-/Anfügeabfrage ausgeben und ausführen
    Call db.Execute(strSQL, DAO.RecordsetOptionEnum.dbSQLPassThrough)
 
    '   Datenbank schließen
    Call db.Close
    Set db = Nothing