Error 13 en tiempo de ejecución

Me sale el error de arriba junto con no coinciden los tipos. Lo único que quiero hacer es guardar en un RecordSet el resultado de una consulta. ¿Alguien me puede decir qué falla?
Dim db As Database
Dim SQLTmp As String
Dim MySnap As Recordset
SQLTmp = "select tbPersonas.DNI from tbpersonas where tbPersonas.DNI = '01936606Y';"
Set MySnap = CurrentDb.OpenRecordset(SQLTmp, dbOpenDynaset)
Err = 0
MySnap.MoveFirst
If Err Then
Err = 0
'no hay datos, avisar
MsgBox "No hay datos que coincidan con la búsqueda especificada," & vbCrLf & "(o no está bien realizada)", 64, "Listados"
Exit Sub
Else
MsgBox "Hay datos que coincidan con la búsqueda especificada," & vbCrLf & "(o no está bien realizada)", 64, "Listados"
End If