The problem is most likely in the SQL statement. looking at it again, I suspect the itype & isubresp string variables need to be quoted. Try changing StrSQL to:
Code:
StrSQL As String = "SELECT * FROM [CORE$] WHERE [TYPE]=""" & itype & """ AND [SIG_CREW]= """ & isubresp & """" & _
" ORDER BY [START] ASC, [COMPLEX] ASC, [UNIT] ASC"
PS: VBA-encoded SQL statements are not my forte.