如何把多条（代码自动生成）查询语句生成到一个查询中？

数据库表的每个前缀分别对应两个后缀_POINT 和 _lLINE

***********************************分割线**************************

  Dim dbs As Database

  Dim tdf As TableDef
  Dim strsql As String
  Dim strName As String
  Dim SQL As String
     
  Set dbs = CurrentDb
     
  For Each tdf In dbs.TableDefs
    strName = tdf.Name
    If Right(strName, 5) = "_LINE" Then
        SQL = SQL + IIf(SQL = "", "select ID,起点点号 AS 起点号,终点点号 AS 终点号,起点埋深 AS 起点深,终点埋深 AS 终点深,起点高程,终点高程,材质,埋设方式,线型 ,管径,探测时间,权属单位,工程编号,套管材料 AS 套管材质,要素代码,总孔数,已用孔数,条数 AS 流向根数,压力值 AS 压力,压力值 AS 电压,勘测单位,使用状况,流向,入库时间,更新时间,备注,专业注记内容,专业注记X坐标,专业注记Y坐标,专业注记角度,辅助类型,删除标记,走向,道路名称 AS 所在道路 from " & strName & " " & Chr(13) + Chr(10), " union " & Chr(13) + Chr(10) & _
 "select ID,起点点号 AS 起点号,终点点号 AS 终点号,起点埋深 AS 起点深,终点埋深 AS 终点深,起点高程,终点高程,材质,埋设方式,线型 ,管径,探测时间,权属单位,工程编号,套管材料 AS 套管材质,要素代码,总孔数,已用孔数,条数 AS 流向根数,压力值 AS 压力,压力值 AS 电压,勘测单位,使用状况,流向,入库时间,更新时间,备注,专业注记内容,专业注记X坐标,专业注记Y坐标,专业注记角度,辅助类型,删除标记,走向,道路名称 AS 所在道路 from " & strName & " ")
    End If
  Next tdf
  
Debug.Print SQL

****************************代码分割线**************************

以上是按钮的代码，运行后会在立即窗口显示如下：

代码能实现把需要的查询语句生成到立即窗口中显示，但每次执行前都有运行一次，然后打开立即窗口，再把立即窗口中的这些查询语句复制粘贴到一个查询里去执行才能生成新表

如何自动实现？ 谢谢