Есть два модуля в Excel - е
1)
Sub test()

Dim Con As Object
Dim rst As Object
Dim ConStr As String

Set Con = CreateObject("ADODB.connection")
Set rst = CreateObject("ADODB.connection")

Con.Open "Provider=SQLOLEDB;Data Source=@;User Id=@;Initial Catalog=@;Password=@"

ConStr = "CREATE TABLE #t1 (t1 varchar(100), t2 varchar(100))"
ConStr = ConStr + " insert into #t1 values ('a', 'b')"
ConStr = ConStr + " insert into #t1 values ('c', 'd')"
ConStr = ConStr + " SELECT * FROM #t1"

Set rst = Con.Execute(ConStr)

MsgBox (rst.fields(0).Name)

End Sub
'-------------------конец

2)
Sub test()

Dim Con As Object
Dim rst As Object
Dim ConStr As String

Set Con = CreateObject("ADODB.connection")
Set rst = CreateObject("ADODB.connection")

Con.Open "Provider=SQLOLEDB;Data Source=@;User Id=@;Initial Catalog=@;Password=@"

ConStr = "CREATE TABLE #t1 (t1 varchar(100), t2 varchar(100))"
Set rst = Con.Execute(ConStr)
ConStr = " insert into #t1 values ('a', 'b')"
Set rst = Con.Execute(ConStr)
ConStr = " insert into #t1 values ('c', 'd')"
Set rst = Con.Execute(ConStr)
ConStr = " SELECT * FROM #t1"
Set rst = Con.Execute(ConStr)

MsgBox (rst.fields(0).Name)

End Sub
'--------------------конец

Первый программа не работает, но если подвать insert-и последовательнО, как во 2-й, то работает.
Почему в первой программе после 1-ого insert-а временная таблица #t1 перестает быть видна?