Imports System.Data.SqlClient
Module Module1

    Sub Main()
    Dim conn As New SqlConnection("server=.;database=pubs;integrated security=sspi;multipleactiveresultsets=true")
        Dim cmd1 As New SqlCommand("select * from authors", conn)
        Dim cmd2 As New SqlCommand("select * from jobs", conn)

        conn.Open()
    'Dim tx As SqlTransaction = conn.BeginTransaction()
    ' cmd1.Transaction = tx
        Dim rdr1 As SqlDataReader = cmd1.ExecuteReader()
        Dim rdr2 As SqlDataReader = cmd2.ExecuteReader()

        rdr1.Read()
        rdr2.Read()


    End Sub

End Module
