If bNeu = True Then
       sSQL = "SELECT * FROM tblangebot WHERE AngNr = 999999"
       aRs.CursorLocation = adUseClient
       aRs.Open sSQL, oConn, adOpenKeyset, adLockOptimistic
       aRsOpen = True
       aRs.AddNew
    Else
       AngebotNr = sevAngebot
       sSQL = "SELECT * FROM tblangebot WHERE AngNr = '" & AngebotNr & "'"
       aRs.CursorLocation = adUseClient
       aRs.Open sSQL, oConn, adOpenKeyset, adLockOptimistic
       aRsOpen = True
       If aRs.RecordCount = 0 Then
          MsgBox "Angebot konnte nicht gelesen werden ...."
          aRs_Close
          Exit Sub
       End If
    End If
 
    If bNeu = True Then
       aRs!AngNr = sevAngebot
       aRs!AngKunde = sevKundenNr
    End If
    aRs!AngKontakt = KontaktKunde
    aRs!AngBez = sevFahrtziel
    aRs!AngStartDat = sevDatVon
    aRs!AngStartZeit = sevAbfOrthZeit
    aRs!AngErtragskonto = sevErlös
    If sevPflicht = "" Then
       aRs!AngPflicht = "A"
    Else
       aRs!AngPflicht = sevPflicht
    End If
    If sevDatBis <> "" Then
       aRs!AngEndDate = sevDatBis
    Else
       aRs!AngEndDate = sevDatVon
    End If
    aRs!AngEndZeit = sevEndZeit
 
    If sevPersVon = "" Then
       aRs!AngPersVon = 0
    Else
       aRs!AngPersVon = sevPersVon
    End If
 
    If sevPersBis = "" Then
       aRs!AngPersBis = 0
    Else
       aRs!AngPersBis = sevPersBis
    End If
    aRs!AngMWst = sevAngMWSt
    aRs!AngErtragskonto = sevErlös
    aRs!AngKunde = sevKundenNr
    aRs!AngBetriebZeit = sevAbfZeit
    aRs!AngStartOrt = sevAbfOrtH
    aRs!AngAbZielOrt = sevAbfOrtR
    aRs!AngAbZielDatum = sevAbfRückDatum
    aRs!AngAbZielZeit = sevAbfRückZeit
    aRs!AngAnzTage = sevAnzTage
    aRs!AngBereitZeit = sevBereitZeit
    aRs!AngRückkehrOrt = sevAusRückOrt
    aRs!AngRückkehrDatum = sevAusRückDatum
    aRs!AngRückkehrZeit = sevAusRückZeit
    aRs!AngBereitZeit = sevBereitZeit
    aRs!AngOrt = KundenOrt
    aRs!AngName = KundenName
    aRs!AngDatum = Format(Now, "dd.mm.yyyy")
    aRs!AngArt = sevAngebotsart
    aRs!AngBereitOrt = sevBereitOrt
    aRs!AngBereitDatum = sevBereitDatum
    If sevKmInland = "" Then
       aRs!AngKmInland = 0
    Else
       aRs!AngKmInland = sevKmInland
    End If
 
    If sevKmAusland = "" Then
       aRs!AngKmAusland = 0
    Else
       aRs!AngKmAusland = sevKmAusland
    End If
    If bNeu = False Then
       aRs!AngBasis0 = SteuAusland
       aRs!AngBasis4 = SteuFrei
       aRs!AngNetto1 = SteuNetto1
       aRs!AngSatz1 = SteuSatz1
       aRs!AngMWSt1 = SteuMWSt1
       aRs!AngAusland1 = SteuAusland1
       aRs!AngTotal1 = SteuTotal1
       aRs!AngNetto2 = SteuNetto2
       aRs!AngSatz2 = SteuSatz2
       aRs!AngMWSt2 = SteuMWSt2
       aRs!AngAusland2 = SteuAusland2
       aRs!AngTotal2 = SteuTotal2
       aRs!AngNetto3 = SteuNetto3
       aRs!AngSatz3 = SteuSatz3
       aRs!AngMWSt1 = SteuMWSt3
       aRs!AngAusland3 = SteuAusland3
       aRs!AngTotal3 = SteuTotal3
    End If
    aRs!AngUser = sUserName
    aRs!AngFirma = 1
    aRs.Update