Screen.MousePointer = vbHourglass
 
    If Not CareDBOpen Then Open_Database CareDB, CareDBPfad, CareDBOpen
    Set rKey = CareDB.OpenRecordset("SELECT Key FROM tlbSpecimen ORDER by Key")
 
    ' Spalten festlegen
    With Me.GridKey
        .LockUpdate True
        .Clear True
 
        .ColumnHeadersVisible = False
        .ScrollBars = SB_VERTICAL
 
        Set .Recordset = rKey
        .ColumnHeadersVisible = False
        .ScrollBars = SB_VERTICAL
        .Columns("Key").Width = 5000
        .CreateClone = True
        .AutoSort = True
        .AutoUpdate = False
        .AllowColumnClick = False
        .AllowEdit = False ' (Grid_bearbeitbar)
        .AllowColumnSizing = True '(Grid_bearbeitbar)
        .AllowDelete = False
 
        .DoSort "Key"
 
        .LockUpdate False
        .Refresh
 
    End With
 
    rKey.Close
    Set rKey = Nothing