在vba函数中调用多个查询结果

Question

我一直在为MS Access工资单工作..如何在VBA函数中调用已在Access中创建的查询？

Public Function InsertAndUpdate()
    //i want my queries here for conditioning
End Function

Answer 1

Dim dbs As DAO.Database
Dim rs As DAO.Recordset

Set dbs = CurrentDb
Set rs = dbs.OpenRecordset("Your_Query_Name")