Module Main
    Dim dc As New PubsDataContext

    Sub Main()
        Dim Titles As Table(Of title) = dc.titles
        Console.WindowWidth = 120
        AddTitleTx()
        AddTitle()
    End Sub

    Private Sub AddTitleTx()
        Using TxScope As New TransactionScope
            Try
                Dim Title1 As New title With
                    {
                        .title_id = "EEEE",
                        .title = "Professional XML",
                        .type = "Programming",
                        .pubdate = CDate("April 15, 2010")
                    }
                dc.titles.InsertAllOnSubmit({Title1})
                Dim Title2 As New title With
                    {
                        .title_id = "FFFF",
                        .title = "Professional VB 2010",
                        .type = "Programming",
                        .pubdate = CDate("June 15, 2010")
                    }
                dc.titles.InsertAllOnSubmit({Title2})
                Console.WriteLine("Before Insert: {0} Titles", dc.titles.Count)
                dc.SubmitChanges()
                Console.WriteLine("After Insert: {0} Titles", dc.titles.Count)
                TxScope.Complete()
            Catch ex As Exception
                'This will happen on the second+ execution of the transaction because the title had already been added.
                Console.WriteLine("Error: {0}", ex.Message)
                TxScope.Dispose()
            Finally
                Console.WriteLine(vbCrLf)
                Console.WriteLine("Press Enter to exit.")
                Console.ReadLine()
                GC.Collect()
            End Try
        End Using
    End Sub

    Private Sub AddTitle()
        Try
            Console.WriteLine("Now for sub Addtitle() ************" & vbCrLf & "Titles before insert: {0}", dc.titles.Count)
            Dim NewTitle As New title
            With NewTitle
                .title_id = "XXXX"
                .title = "Some New Title"
                .type = "test"
                .pubdate = New DateTime(2010, 1, 12)
                .notes = "Added via LINQ"
                .price = 50
            End With
            dc.titles.InsertOnSubmit(NewTitle)
            Console.WriteLine("Titles after insert, but before submit: {0}", dc.titles.Count)
            dc.SubmitChanges()
            Console.WriteLine("Titles after insert, but before submit: {0}", dc.titles.Count)
        Catch ex As Exception
            Console.WriteLine(ex.Message)
        Finally
            Console.WriteLine(vbCrLf)
            Console.WriteLine("Press Enter to exit.")
            Console.ReadLine()
        End Try
    End Sub

End Module