Private Sub sevGrid1_RowLoaded(ByVal nRow As Long, Item As _
  sevDataGrid2.ListItem)
 
Dim a As Integer
 
 With Item
   If Not IsNull(sevGrid1.Recordset.Fields("IDMonteur").Value) = True Then
       a = .CellText(5)   """"'CInt(sevGrid1.Recordset.Fields( 
       ' "IDMonteur").Value)"""""
       adorsFillBox.Find "IDPerso=" & a
         If Not adorsFillBox.EOF = True Then
         .CellText(5) = adorsFillBox.Fields("Name").Value
          Else
         .CellText(5) = ""
     End If
    End If
  End With
 
End Sub