Query finds records in Access interface, but not in VB6 or VBA.

I have one particular query that works OK in Access from the design interface, returning 13 records, but returns no records when run from code. Other queries work. It isn't particularly complex.

This is the stored query

SELECT Volume.label, Path.name, Thumbnail.name
FROM Volume INNER JOIN (Path INNER JOIN Thumbnail ON Path.idPath = Thumbnail.idPath) ON Volume.idVol = Path.idVol
WHERE (((Volume.label)='sata_p1') AND ((Path.name)='My Pictures\Photos\2003\2003_0524') AND ((Thumbnail.name) Like '2003*'))
ORDER BY Thumbnail.name;


This is the VB code

Sub TestSQL()
    Dim cnThumb As ADODB.Connection
    Dim rsDateName As New ADODB.Recordset
   
    Set cnThumb = CurrentProject.Connection
    rsDateName.Open "qryTest", cnThumb, adOpenDynamic, adLockPessimistic, adCmdStoredProc
   
    If Not rsDateName.EOF Then
        rsDateName.MoveLast
        Debug.Print rsDateName.RecordCount
    End If
   
End Sub

Access 2003, SP2; Windows 2000 SP4; ADO 2.7 library.Start Free Trial