vb +access数据库合并，请教专业解答

dim sql as string

dim sql_x as string

dim sql_y as string

sql_x = "select [数量] from 表A where [序号]=[表M].[序号]"

sql_y = "select [数量] from 表B where [序号]=[表M].[序号]"

sql = "select [序号]，[名称]，[规格类型]，(" &sql_x &") + (" &sql_y &") as 数量，[备注] from 表A as 表M"

有也

许

别

人

早

已

忘

记

，

但

它

却

像

恶

魔

一

样

锁

住

你

的

心

。

　

　

有

些

话

不

是

你

说

忘

了

就

可

以

忘

记

的

，

它

不

是

剧

本

里

的

台

词

，

说

过

后

就

像

烙

印

般

有

了

痕

迹

。

　

　

有

些

爱

不

是

你

不

想

面

对

就

可

以

逃

避

的

，

或

许

它

会

随

时

间

淡

去

，

但

仍

紧

紧

围

绕

你

心

头

放

不

下

。

些

事

不

是

你

想

摆

脱

就

可

以

摆

脱

的

，

---