Dim bNew As Boolean
...

bNew = True
If sevGrid1.Rows > 0 Then
  bNew = (sevGrid1.FindFirst(sSQL, True) = 0)
End If
 
If bNew Then
  With sevGrid1.Recordset
    .AddNew
    .Fields("...") = ...
    .Fields("...") = ...
    ...
    .Update
  End With
  sevGrid1.Refresh
 
Else
  With sevGrid1.Recordset
    .Fields("...") = ...
    .Fields("...") = ...
    .Update
  End With
  sevGrid1.RowRefresh
End If

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de