Private Sub RowLoaded(ByVal nRow As Long ByVal Item As ListItem)
  Dim i As Long
  With Item
    For i = 1 To Grid1.Cols
      .Celltext(i) = Replace(.CellText(i), vbCrLf, "")
    Next i
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de