在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")