Private Sub Form_Load()
  Dim oRs As dao.Recordset
 
 
  'Vorbereitung
  Me.KeyPreview = True
 
  'Verweis
  Set oDB = CurrentDb
 
  'Recordset holen
  sSQL = "SELECT strUsrID, strUsrNName, strUsrVName, strUsrAbtNr, strUsrSGebNr" & _
    "" & _
         "FROM tblUser WHERE strUsrAmtNr = '10' ORDER BY strUsrNName"
  Set oRs = oDB.OpenRecordset(sSQL)
 
  With grdUser
    'autom. Neuzeichnen ausschalten
    .LockUpdate True
 
    'Recordset-Kopie erstellen
    .CreateClone = True
 
    'Recordset zuweisen
    .Clear True
    Set .Recordset = oRs
 
    'autom. Sortierung aktivieren
    .AutoSort = True
    'sortieren
    .DoSort "strUsrID"
 
    'Ändern der Spaltenbreiten zulassen
    .AllowColumnSizing = True
    'neuzeichnen
    .LockUpdate False
    .Refresh
 
    'erste Zeile selektieren
    .Row = 1
 
  End With
 
  'schließen und Verweis lösen
  oRs.Close
  Set oRs = Nothing
 
End Sub