Hello I am trying to make a recordset with a query my code is as followsThe Problem I am having is that when I run the query I have 32 records, but when I run this recordset I only get a recordcount of 1. I don't know what I am doing wrong any help will be greatly appreciated. Thank youCode:Public Sub OpenInvoices() Dim db as DAO.Database Dim rs As DAO.Recordset Set db = CurrentDb () Set rs = db.OpenRecordset ("QryOpenInvoices") With rs Debug.Print .Recordcount .Close End With Set rs = Nothing Set db = Nothing End Sub