Dim con As OleDbConnection = Verbindung_caller
        'Try
        con.Open()
        With con.CreateCommand()
            .CommandText = "INSERT INTO Rechnung (Arzt_ID, Patient_ID, LA_ID," & _
              "Leistungsdatum, Rechnungsdatum, Rechnungsnummer," & _
              "Rechnungsbetrag, Zahlungsziel, Bemerkungen, Zahlungsdatum)" & _
              "Values (@Arzt_ID, @Patient_ID, @LA_ID, @Leistungsdatum," & _
              "@Rechnungsdatum, @Rechnungsnummer, @Rechnungsbetrag," & _
              "@Zahlungsziel, @Bemerkungen, @Zahlungsdatum)"
            .Parameters.AddWithValue("@Arzt_ID", rechnung.arzt_id)
            .Parameters.AddWithValue("@Patient_ID", rechnung.patient_id)
            .Parameters.AddWithValue("@LA_ID", rechnung.la_id)
            .Parameters.AddWithValue("@Leistungsdatum", rechnung.leistungsdatum)
            .Parameters.AddWithValue("@Rechnungsdatum", rechnung.rechnungsdatum)
            .Parameters.AddWithValue("@Rechnungsnummer", _
              rechnung.rechnungsnummer)
            .Parameters.AddWithValue("@Rechnungsbetrag", _
            rechnung.rechnungsbetrag)
            .Parameters.AddWithValue("@Zahlungsziel", rechnung.zahlungsziel)
            .Parameters.AddWithValue("@Bemerkungen", rechnung.bemerkungen)
            .Parameters.AddWithValue("@Zahlungsdatum", rechnung.zahlungsdatum)
            .ExecuteNonQuery()
            .Dispose()
        End With