If Application.BasicFunctions.CurrentUserID <> "ADMIN" Then DataGrid1.EditOptions.ShowDelete = False DataGrid1.EditOptions.ShowEdit = False End If