Private Sub Ländereinstellungen()
    CloseFiles
    ' Systemdaten lesen
    sSQL = "SELECT * FROM tblLänder"
    oRs.CursorLocation = adUseClient
    oRs.Open sSQL, oConn, adOpenKeyset, adLockOptimistic
    oRsOpen = True
 
    ' Ländertabelle laden
    LänderLaden
 
    If oRs.RecordCount = 0 Then
       sevNetto.Value = True
       sevBrutto.Value = False
       sevGJahr.Text = "01.01"
       sevWährung.Text = "CHF"
       sevMWSt0 = 0
       sevMWSt1 = 0
       sevMWSt2 = 0
       sevMWSt3 = 0
    Else
       oRs.MoveFirst
       If oRs!LandNetto = 0 Then
          sevNetto = True
        Else
          sevNetto = False
        End If
        If oRs!LandBrutto = 0 Then
           sevBrutto = True
        Else
           sevBrutto = False
        End If
       sevMWSt0 = oRs!LandMWSt0
       sevMWSt1 = oRs!LandMWSt1
       sevMWSt2 = oRs!LandMWSt2
       sevMWSt3 = oRs!LandMWSt3
       sevGJahr = oRs!LandGJahr
       sevWährung = oRs!LandWährung
       sevLand = oRs!LandBez
    End If
End Sub