Visual Basic.NET - SqlTransaction se completó; ya no se puede utilizar

Public Sub Conexion(ByVal CarpetaOrigen As String, ByVal Unidad As Char, ByVal Nombredeusuario As String, ByVal Contraseña As String, ByVal TipoID As Integer)

        Connect.Open()

        Dim TR As SqlTransaction = Connect.BeginTransaction

        Dim Comand As New SqlCommand

        Comand.Transaction = TR

        'Intenta hacer la conexion

        'directa con el modulo de red y inserta como fue el proceso si exitoso o fallido

        Try

            Map(CarpetaOrigen, Unidad, True, Nombredeusuario, Contraseña)

            Comand = New SqlCommand("INSERT INTO [Bitacora2]  (Fecha, TipoID, EventoID) VALUES ( GETDATE(), @TipoID , 100 )", Connect) With {

        .Transaction = TR

           }

            Comand.Parameters.AddWithValue("@TipoID", TipoID)

            Comand.ExecuteNonQuery()

            TR.Commit()

            Connect.Close()

        Catch ex As Exception

            TR.Rollback()

            Comand = New SqlCommand("INSERT INTO [Bitacora2]  (Fecha, TipoID, EventoID) VALUES (GETDATE(), @TipoID, -100 )", Connect) With {

        .Transaction = TR

                  }

            Comand.Parameters.AddWithValue("@TipoID", TipoID)

            Comand.ExecuteNonQuery()

            TR.Commit()

            Connect.Close()

        End Try

    End Sub