<FONT face="Courier New"> Dim cmm As ADODB.Command
Set cmm = New ADODB.Command
With cmm
.ActiveConnection = CurrentProject.Connection
.CommandType = adCmdText
.CommandText = "Create Table #tt (f1 char(6) not null)"
.Execute
End With
</FONT>
但是创建的临时表称为局部临时表,是存放在tempdb数据库中,会话一结束,就会自动消失。