Private Sub LänderSpeichern()
    If oRs.RecordCount = 0 Then
       oRs.AddNew
    End If
    With Me
        If .sevNetto = True Then
           oRs!LandNetto = 0
        Else
           oRs!LandNetto = 1
        End If
        If .sevBrutto = True Then
           oRs!LandBrutto = 0
        Else
           oRs!LandBrutto = 1
        End If
        oRs!LandMWSt0 = .sevMWSt0.Value
        oRs!LandMWSt1 = .sevMWSt1.Value
        oRs!LandMWSt2 = .sevMWSt2.Value
        oRs!LandMWSt3 = .sevMWSt3.Value
        oRs!LandGJahr = .sevGJahr
        oRs!LandWährung = .sevWährung
        oRs!LandBez = .sevLand
        oRs!LandKBez = Land
    End With
    oRs.Update
    MsgBox "Die Länderangaben wurden gespeichert"
    CloseFiles
End Sub