Help - Type Mismatch?

[Mike Anderson]

'When I run the code below I get a type mismatch on the setrestProjects line


Sub Command14_Click()

Dim db As Database
Dim rstProjects As Recordset

Set db = CurrentDb()
'ERROR ON LINE BELOW
Set rstProjects = db.OpenRecordset("Pat", dbOpenSnapshot)

If Not AreThereRecords(rstProjects) Then
MsgBox "Recordset Empty...Unable to Proceed"
End If
End Sub

Function AreThereRecords(rstAny As Recordset) As Boolean
AreThereRecords = rstAny.RecordCount
End Function