用vba代码查询

crlcn

比如在表“基础”中包含字段：“部门，姓名，效益工资，税，实领工资”。

现在想用vba代码在“基础”表中 查询字段：“效益工资，税，实领工资”，
以部门分组，计出各字段合计(效益工资，税，实领工资)，并写入一新建表中。

该如何写这段代码。

aslxt

SELECT 部门, Sum(效益工资) AS 效益工资之总计, Sum(税) AS 税之总计, Sum(实领工资) AS 实领工资之总计
FROM 基础
GROUP BY 部门

crlcn

不是 SQL语句我知道
我想知道的是 vba的代码怎么写
怎么在代码栏中正确的输入以上的SQL查询语句

aslxt

假如有一个事件过程:
Private Sub Command0_Click()
  Dim Rec As ADODB.Recordset
  dim str
  str="SELECT 部门, Sum(效益工资) AS 效益工资之总计, Sum(税) AS 税之总计, Sum(实领工) AS 实领工资之总计 FROM 基础 GROUP BY 部门 "
  Set Rec = New ADODB.Recordset
  Rec.Open str,CurrentProject.Connection, adOpenKeyset, adLockOptimistic
  Set Me.Form.Recordset = Rec
End Sub

crlcn

呵呵  谢谢了
有点明白 了
刚刚我又发了个帖子，这把弄了个完整版的，呵呵  一段小程序所有的问题全包含里了，请aslxt兄及所有高手们 帮忙弄下，实在是感谢。