请问如何在VBA中取出合计查询的值？

jsjdn2004

我想在VBA中取出一个名叫“数量合计”的查询的值：查询的SQL为：SELECT Sum(表1.数量) AS 数量之Sum FROM 表1;

请问下面的语法错在哪里？

Private Sub 命令1_Click()

Dim  sl As Integer

sl=DoCmd.OpenQuery "数量合计", acViewNormal, acEdit

msgbox sl

End Sub

老鬼

Private Sub 命令1_Click()

Dim  sl As Integer

sl=dlookup("[数量之Sum]","[数量合计]")

msgbox sl

End Sub