Private Sub AngehoerigeLesen()
    pRs_Close
    sSQL = "SELECT * FROM tblfamilie WHERE AnAdressNr = '" & SuchKdNr & "'"
    pRs.CursorLocation = adUseClient
    pRs.Open sSQL, oConn, adOpenKeyset, adLockBatchOptimistic
    pRsOpen = True
 
    With Me
        With .sevGrid9
            .LockUpdate True
            .CreateClone = True
            .Clear True
            Set .Recordset = pRs
 
            .Columns(1).Visible = False
            .Columns(2).Visible = False
 
            ' Spaltenbreiten festlegen
            .Columns(3).Width = 2500            ' Vorname
            .Columns(4).Width = 3400            ' Nachname
            .Columns(5).Width = 1400            ' Geburtsdatum
 
            ' Spaltenüberschriften setzen
            .Columns(3).Caption = "Vorname"
            .Columns(4).Caption = "Nachname"
            .Columns(5).Caption = "Geboren"
 
            .Columns("AnDatum").Button = True
 
            ' Nach Verbindung sortieren
            .AutoSort = True
            .DoSort "AnNachname"
 
            ' interaktives Hinzufügen, Ändern und Löschen erlauben
            .AllowEdit = True
            .AutoEdit = True
            .AutoUpdate = True
            .AllowDelete = True
            .AutoInsert = False
 
            ' interaktives Ändern der Spaltenbreiten zulassen
            .AllowColumnSizing = True
 
            ' automatisches Neuzeichnen einschalten
            .LockUpdate False
            .Refresh
 
            pRs_Close
        End With
    End With
End Sub