How to determine if query returns no records

Dim stDocName As String
Dim dbs As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String
Dim sResult As String
Set dbs = CurrentDb
 
strSQL = "SELECT [Open Item].[Open Item], [Open Item].Title, [Open Item].Text,  " & _
"[Open Item].History, [Open Item].Responsible, [Open Item].[Entry Date],  " & _
"[Open Item].[Due Date], [Open Item].[Date Done], [Open Item].OpenItemStatus,  " & _
"[Open Item].Cooperation, [Open Item].Priority, [Open Item].[Original Due Date],  " & _
"Employees.Comm, Employees.[Last Name], Employees.[First Name],  " & _
"[First Name] & ' ' & [Last Name] AS Resource, [Meeting Type].Description,  " & _
"[Open Item].Type, [Open Item].[Ref Nr], [Open Item].SNr, [Open Item Type].[Code 1],  " & _
"[Code 1] & ' ' & [Open Item] & '-' & [Ref Nr] AS FullOPINumber " & _
"FROM [Open Item Type]  " & _
"RIGHT JOIN ([Meeting Type]  " & _
"RIGHT JOIN (Employees  " & _
"RIGHT JOIN [Open Item] ON Employees.Nr = [Open Item].Responsible)  " & _
"ON [Meeting Type].Nr = [Open Item].[Meeting Type])  " & _
"ON [Open Item Type].Nr = [Open Item].Type " & _
"WHERE ((([Open Item].[Open Item])=[Forms]![frmOpenItemUpdate]![Open Item]));"
 
Set rs = dbs.OpenRecordset(strSQL, dbOpenDynaset)
If rs.RecordCount > 0 Then
DoCmd.OutputTo acReport, stDocName, acFormatRTF, "c:\APW\Email.doc", True
Else
MsgBox "There were no Open Item to mail - is the Open Item Saved?"
End If