Private Sub TabStrip1_Click()
   With Grid1
       If .IsEditMode() = MODE_EDIT Then
          .UpdateRow                 ' löst Grid1_AfterCellEdit aus
       End If
       .LockUpdate True
       .Clear True
       If TabStrip1.Tabs.Item(1).selected Then
           Set .Recordset = .......
           ....
       Else
           Set .Recordset = .......
           .....
       End If
   End With
End Sub
 
Private Sub Grid1_AfterCellEdit(nRow usw)
   With Grid1
      ' statt: if TabStrip1.Tabs.Item(1).selected Then
      If .Recordset.Source = "<Name der Tabelle, aus der der Recordset gebildet" & _
        "ist>" then
            .....
      Else
            .....
      End If
      .Rowrefresh 
      ' usw.
   End With
End Sub