Private Sub Grid1_RowLoaded(ByVal Row As Long, Item As Object)
    Debug.Print "XXXXXXXXXXXXX"
End Sub

 
...
With Me.Grid1
        .LockUpdate True
        .Clear True
 
        .AllowColumnClick = True
        .AllowColumnSizing = True
        .AllowDelete = False
        .AllowEdit = False
        .AllowMultiSelect = False
        .AutoSort = True
        .AutoUpdate = True
        .CheckBoxStyle = 2
        .ShowSortSymbols = True
        .AllowRowSizing = True
 
 
        .CreateClone = True
        Set .Recordset = rst
 
        .WheelMouse = True
 
        '.Columns("T_EZDZ").ColType = TYPE_COMBOLIST '64
 
        .Columns("P_ID").Visible = False
 
 
        .LockUpdate False
        .Refresh
     End with
...