' ----------------------------- Zimmerbuchungen (für die Buchuung)
    iRs_Close
    sSQL = "SELECT * FROM tblZimmerbuchung WHERE ZiBuchung = '" & nBuchung & "'" & _
      "ORDER BY ZiID"
    iRs.CursorLocation = adUseClient
    iRs.Open sSQL, oConn, adOpenKeyset, adLockOptimistic
    iRsOpen = True
    If iRs.RecordCount > 0 Then
       iRs.MoveFirst
    End If
 
    With Me
       With .sevGrid6
            .LockUpdate True
            .Clear True
            Set .Recordset = iRs
 
            .Columns(5).Width = 800             ' Anzahl Zimmer
            .Columns(6).Width = 1200            ' Zimmerart
            .Columns(7).Width = 1500            ' Ankunftsdatum
            .Columns(8).Width = 1500            ' Abreisedatum
            .Columns(9).Width = 4000            ' Bemerkung
 
            .Columns(5).Caption = "Anzahl"
            .Columns(6).Caption = "Zimmer"
            .Columns(7).Caption = "Ankunft"
            .Columns(8).Caption = "Abreise"
            .Columns(9).Caption = "Bemerkung"
 
            ' Spalten unsichtbar machen
            .Columns(1).Visible = False
            .Columns(2).Visible = False
            .Columns(3).Visible = False
            .Columns(4).Visible = False
 
            .Columns(6).ColType = TYPE_COMBOBOX
 
            .Columns("ZiAnkunft").Button = True
            .Columns("ZiAbreise").Button = True
 
            .AllowEdit = True
            .AutoEdit = False
            .AutoUpdate = True
            .AllowDelete = True
            .AutoInsert = False
 
            .AllowColumnSizing = True
 
            .AllowColumnReorder = True
 
            .LockUpdate False
            .Refresh
 
            .Row = 1
            If iRs.RecordCount > 0 Then
               ActZimmerID = .Text(.Row, 1)
            Else
               ActZimmerID = 0
               NeueZimmerZeile
            End If
       End With
 
       ' Namen je Zimmerbuchung
 
       With sevGrid7
          jRs_Close
          sSQL = "SELECT * FROM tblZimmernamen WHERE ZimZiID = '" & ActZimmerID _
            & "'"
          jRs.CursorLocation = adUseClient
          jRs.Open sSQL, oConn, adOpenKeyset, adLockOptimistic
          jRsOpen = True
          If jRs.RecordCount > 0 Then
             jRs.MoveFirst
          End If
          ' automatisches Neuzeichnen ausschalten
          .LockUpdate True
          ' Recordset zuweisen
          .Clear True
          Set .Recordset = jRs
 
          .Columns(3).Width = 3200              ' Name des Teilnehmers
          .Columns(4).Width = 1500              ' Geburtsdatum
 
          .Columns(3).Caption = "Name"
          .Columns(4).Caption = "Geboren am"
 
          .Columns(1).Visible = False
          .Columns(2).Visible = False
          .Columns(5).Visible = False
 
          .Columns("ZimAlter").Button = True
 
          .AllowEdit = True
          .AutoEdit = False
          .AutoUpdate = True
          .AllowDelete = True
          .AutoInsert = False
 
          .AllowColumnSizing = True
 
          .AllowColumnReorder = True
 
          .LockUpdate False
          .Refresh
 
          If jRs.RecordCount > 0 Then
             .Row = 1
          End If
       End With
    End With