AddHandler myTable.RowChanged, AddressOf TableRowChange

public nLastID as Long
 
Private Sub TableRowChange(ByVal sender As Object, ByVal e As _
  DataRowChangeEventArgs)
        If e.Action = DataRowAction.Add Then
            nLastID = e.Row.Item("ID")
        End If
End Sub