Dim con As OleDbConnection = Verbindung_caller
        con.Open()
        With con.CreateCommand()
            .CommandText = "INSERT INTO Patient (Vorname, Nachname," & _
              "Geburtsdatum, Beihilfe_ID, Beihilfesatz) Values (@Vorname," & _
              "@Nachname, @Geburtsdatum, @Beihilfe_id, @Beihilfesatz)"
            .Parameters.AddWithValue("@Vorname", _
            patient.patient_vorname.ToString)
            .Parameters.AddWithValue("@Nachname", _
            patient.patient_nachname.ToString)
            .Parameters.AddWithValue("@Geburtsdatum", _
            patient.patient_geburtsdatum.ToShortDateString)
            .Parameters.AddWithValue("@Beihilfe_id", patient.beihilfe_id)
            .Parameters.AddWithValue("@Beihilfesatz", patient.beihilfesatz)
            .ExecuteNonQuery()
            .Dispose()
        End With
        con.Close()