Private Sub AufbauGrid1()
    VorgangNr = CDbl(sevBuchung.Caption)
    iRs_Close
    sSQL = "SELECT LeFolge, LeVorgang, LeVart, LeBezeichnung, LeAnzahl," & _
      "LePreis, LeTotal, LeTyp FROM tblleistung WHERE LeVorgang = '" & _
      VorgangNr & "' AND LeVart = '3' And LeTyp = 'Storno'"
    iRs.CursorLocation = adUseClient
    iRs.Open sSQL, oConn, adOpenKeyset, adLockOptimistic
    iRsOpen = True
    If iRs.RecordCount > 0 Then
       iRs.MoveFirst
    End If
 
    MsgBox sSQL
 
 
    With Me
       With .sevGrid1
            .LockUpdate True
            .Clear True
            Set .Recordset = iRs
 
            .Columns(1).Visible = False
            .Columns(3).Visible = False
            .Columns(8).Visible = False
 
            ' Spaltenbreiten festlegen
            .Columns(2).Width = 1200            ' Buchungs-Nr
            .Columns(4).Width = 4500            ' Leistung
            .Columns(5).Width = 1200            ' Menge
            .Columns(6).Width = 1200            ' Preis
            .Columns(7).Width = 1200            ' Totalpreis
 
            ' Spaltenüberschriften setzen
            .Columns(2).Caption = "Buchung"
            .Columns(4).Caption = "Leistung"
            .Columns(5).Caption = "Anzahl"
            .Columns(6).Caption = "Preis"
            .Columns(7).Caption = "Total"
 
            .Columns(2).LockEdit = True
            .Columns(7).LockEdit = True
 
            With .Columns("LePreis")
                .InputType = INPUT_CURRENCY
                .DisplayFormat = "#####0.00"
                .Decimals = 2
            End With
 
            With .Columns("LeAnzahl")
                .InputType = INPUT_CURRENCY
                .DisplayFormat = "#####0.00"
                .Decimals = 2
            End With
 
            With .Columns("LeTotal")
                .DisplayFormat = "######0.00"
                .Decimals = 2
            End With
 
            ' interaktives Hinzufügen, Ändern und Löschen erlauben
            .AllowEdit = True
            .AutoEdit = True
            .AutoUpdate = True
            .AllowDelete = True
            .AutoInsert = True
 
            .AllowColumnSizing = True
            .LockUpdate False
            .Refresh
        End With
    End With
End Sub