Private Sub Leistungen()
    FileClose
    sSQL = "SELECT * FROM tblLeistung WHERE LeVorgang = '" & VorgangNr & "' AND" & _
      "LeVart = 01"
    oRs.CursorLocation = adUseClient
    oRs.Open sSQL, oConn, adOpenKeyset, adLockOptimistic
    oRsOpen = True
    If oRs.RecordCount > 0 Then
       oRs.MoveFirst
    Else
       MsgBox "Es sind noch keine Leistungen erfasst worden ...."
    End If
 
    With Me
       With .sevGrid1
            ' automatisches Neuzeichnen ausschalten
            .LockUpdate True
            ' Recordset-Kopie erstellen
            .CreateClone = True
            ' Recordset zuweisen
            .Clear True
            Set .Recordset = oRs
 
            ' Spaltenbreiten festlegen
            .Columns(2).Width = 900             ' Angebots-Nr
            .Columns(3).Width = 400             ' Vorgang
            .Columns(4).Width = 1500            ' Datum von
            .Columns(5).Width = 1500            ' Datum bis
            .Columns(6).Width = 4700            ' Leistung
            .Columns(7).Width = 1000            ' Menge
            .Columns(8).Width = 800             ' Einheit
            .Columns(9).Width = 1200            ' Preis
            .Columns(10).Width = 1200           ' Rabatt
            .Columns(11).Width = 1200           ' Totalpreis
            .Columns(12).Width = 500            ' Brutto/Netto
            .Columns(13).Width = 1000           ' Steuer
            .Columns(14).Width = 900            ' Sachkonto
 
            ' Spaltenüberschriften setzen
            .Columns(2).Caption = "Angebot"
            .Columns(3).Caption = "Vg"
            .Columns(4).Caption = "Datum von"
            .Columns(5).Caption = "Datum bis"
            .Columns(6).Caption = "Leistung"
            .Columns(7).Caption = "Menge"
            .Columns(8).Caption = "Einheit"
            .Columns(9).Caption = "Preis"
            .Columns(10).Caption = "Rabatt"
            .Columns(11).Caption = "Total"
            .Columns(12).Caption = "B/N"
            .Columns(13).Caption = "Steuer %"
            .Columns(14).Caption = "Sachkonto"
 
            .Columns("LeDatumVon").Button = True
            .Columns("LeDatumBis").Button = True
 
            ' Spalten unsichtbar machen
            .Columns(1).Visible = False
 
            ' Spalten für die Bearbeitung sperren
            .Columns(2).LockEdit = True
            .Columns(3).LockEdit = True
            .Columns(11).LockEdit = True
 
            .Columns(8).ColType = TYPE_COMBOBOX
            .Columns(12).ColType = TYPE_COMBOBOX
 
            .Columns(7).InputType = INPUT_CURRENCY
            .Columns(9).InputType = INPUT_CURRENCY
            .Columns(10).InputType = INPUT_CURRENCY
            .Columns(11).InputType = INPUT_CURRENCY
            .Columns(13).InputType = INPUT_CURRENCY
 
            .Columns(7).DisplayFormat = "##0.00"
            .Columns(13).DisplayFormat = "#0.0"
 
            .Columns(9).DisplayFormat = "#####0.00"
            .Columns(10).DisplayFormat = "#####0.00"
            .Columns(11).DisplayFormat = "#####0.00"
 
 
            With .Columns(6)
               ' Floskelknopf im Editmode anzeigen
               .Button = True
            End With
 
            .AutoEdit = True
            .AutoUpdate = True
            .AllowDelete = True
            .AllowEdit = True
            .AutoInsert = False
 
            ' interaktives Ändern der Spaltenbreiten zulassen
            .AllowColumnSizing = True
            ' automatisches Neuzeichnen einschalten
            .LockUpdate False
            .Refresh
            ' 1. Zeile selektieren
            .Row = 1
            ' ursprünglichen Recordset zerstören
            oRs.Close
            Set oRs = Nothing
            oRsOpen = False
            ' Eingabebereich für einen neuen Text
            NeueZeile
       End With
    End With
End Sub