conn.Open "Provider=microsoft.jet.OLEDB.4.0;" + _
              "DATA Source=c:\programme\svagrar\agrar.mdb"
    iAN = wK.Range("AGN").Value
    sSQL = "Select AGNummer, lfdNr, Gruppe, Nachname, Vorname, Gebdat, Beruf," & _
      "AnzahlPersonen, VSArt , " _
           & "VSUmfang, Progression, Mehrleistung, SInvalidität, SÜbergang," & _
           "SVerbessert, STod, SKHT, STG, TGab , SRente, Dynamik, SBeitrag " _
           & "FROM Unfall WHERE AGNummer=" & iAN
 
    rec.Open sSQL, conn, adOpenKeyset, adLockOptimistic
 
 
 
 
    ' Aufbau Datagrid
    With sevGrid1
        .LockUpdate True
        .CreateClone = True
        .Clear True
        '.DataMode = Mode_Recordset
 
 
 
        Set .Recordset = rec
 
        With .Columns("AGNummer")                                    ' 1
            .Visible = False                                         ' AGNummer
            .Width = 500
            .Caption = "Angebots-" & vbCrLf & "Nr."
            .HeadAlign = ALIGNMENT_RIGHT 
        End With
        With .Columns("lfdnr")                                       ' 2
            .Visible = True                                          ' lfdnr
            .Width = 700                                        
            .Caption = " " & vbCrLf & "VP-Nr"     
            .HeadAlign = ALIGNMENT_CENTER
            .Align = ALIGNMENT_CENTER
            .Bold = True
            .LockEdit = True
        End With
        With .Columns("Gruppe")                                      ' 3
            .Visible = True                                          ' Gruppe
            .Width = 1000                                         
            .Caption = vbCrLf & "VP-Typ"               
            .HeadAlign = ALIGNMENT_LEFT       
            .Bold = True
            .ColType = TYPE_COMBOLIST
        End With
 
      '  .......  weitere Spaltendefinitionen
 
        ' allgemeine Einstellungen
        .DataMode = Mode_Recordset
        ' Farbeinstellungen
        ' ...... diverse Allgemeineinstellungen Farbe und Captions
        .AllowMultiSelect = True                                     ' 
        ' Mehrfachselektionen erlaubt
        .AllowEdit = True                                            ' 
        ' Editieren erlaubt
        .AllowDelete = True                                          ' Löschen 
        ' erlaubt
        .AllowAutoColumnSizing = False                               ' keine 
        ' Spaltenänderungen zulassen
        .AllowColumnClick = False                                    ' kein 
        ' Klick auf Spaltenköpfe erlaubt
        .AllowColumnReorder = False                                  ' keine 
        ' neue Spaltenanordnung erlaubt
        .ScrollBars = SB_VERTICAL                                    ' nur 
        ' vertikale Scollbars
        .AutoUpdate = True                                           ' 
        ' automatisch speichern
        .StartEditWith = EDIT_DBLCLICK_OR_ENTER                      ' mit 
        ' Doppelklick oder Enter in Editiermodus gehen
        .LostFocusEditMode = GRID_UPDATEROW                          ' bei 
        ' Focusverlust speichern
 
        ' Sortierungsangaben
        '.AutoSort = False
        .SortEmptyRowsBottom = True                                  ' leere 
        ' Zeelen unten anordnen
        .ShowSortSymbols = False                                     ' keine 
        ' Sortierungspfeile zeigen
        .DoSort 3, SORT_ASC                                          ' nach 
        ' Spalte 3 - Gruppe - sortieren
        .LockUpdate False                                            ' 
        ' Neuzeichnen einschalten
        .ReSort                                                      ' neu 
        ' sortieren
        .Refresh                                                     'Grid 
        ' aktualisieren
 
        ' Original-Recordset schließen
        rec.Close
        Set rec = Nothing
    End With