Dim Index As Long
With Grid2
  Index = .GetRow(sID)
  If Index > 0 Then
    ' Datenzeile existiert bereits
    .List(Index) = sHelp
  Else
    ' Neue Datenzeile erstellen
    .AddItem sHelp, , , sID
  End If
End With

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de