Private Sub sevGrid1_RowChange(ByVal nRow As Long)
    ' Honorarermittlungen des Projektes anzeigen
  With sevGrid2
      .Caption = "Honorarermittlungen zum Projekt: " & sevGrid1.Text(nRow, _
        "Projektbez")
    Set .Recordset = CurrentDb.OpenRecordset("SELECT IdHonorar, prj_ID," & _
    "Ermittlungsnummer, Bezeichnung, IdAnsatz FROM tblHonorarErmittlungen WHERE" & _
    "prj_ID = " & sevGrid1.Text(nRow, "prj_ID") & " ORDER BY Ermittlungsnummer")
        ' Zusätzliche Spalten-Eigenschaften festlegen
    .Columns(3).Caption = "Nummer"
    .Columns(3).Width = 800
    .Columns(4).Width = 6000
    .Columns(5).Width = 400
    With .ColumnAdd("Bezeichnung", "Ansatz", 1000)
      .Position = 6
      .LockEdit = True
      End With
 
    ' Ansaetze-Tabelle öffnen
    Set oRsidansatz = CurrentDb.OpenRecordset("tblAnsaetze")
    oRsidansatz.Index = "IdAnsatz"
    '.AllowEdit = True
    .AutoUpdate = True
    '.AllowDelete = True
    .Refresh
    .Columns(1).Visible = False
    .Columns(2).Visible = False
    .Columns(5).Visible = False
  End With
 
End Sub