Private Sub DataAdapter_RowUpdated(ByVal sender As Object, ByVal e As _
  System.Data.SqlServerCe.SqlCeRowUpdatedEventArgs) Handles _
  DataAdapter.RowUpdated
        Dim cmd As SqlCeCommand = CType(sender, SqlCeDataAdapter).SelectCommand
        If e.StatementType = StatementType.Insert Then
            Dim cmdLastId As New SqlCeCommand("SELECT @@IDENTITY", _
              cmd.Connection)
            Dim Id As Integer = CInt(cmdLastId.ExecuteScalar)
            e.Row("ID") = Id
            e.Row.AcceptChanges()
        End If
End Sub