Dim mstrSQL As String
    Dim mrst As DAO.Recordset
 
    mstrSQL = "tab_konfig_lokal"
 
    Set mrst = CurrentDb.OpenRecordset(mstrSQL)
 
    With ctlGrid
 
        .LockUpdate True
 
        .CreateClone = True
 
        .Clear True
 
        Set .Recordset = mrst
 
        .AllowEdit = True
        .AutoUpdate = True
        .AllowDelete = True
 
        .LockUpdate False
        .Refresh
 
        mrst.Close
        Set mrst = Nothing
 
    End With