Private Sub btnEinfügen_Click()
    Dim oItem As sevdataGrid2.ListItem
    With sevGrid1
        .LockUpdate True
        Set oItem = .AddItem("T" & vbTab & "Zeile in " & .Row & " eingefügt", _
          .Row)
        .LockUpdate False
        .Refresh
    End With
    Set oItem = Nothing
End Sub

Gru? Carsten

Ehrlich w?hrt am L?ngsten (sacht man...)