Public Function SearchDB(ByVal test$) As Variant
' Open Parameter Query
Dim tmp() As Variant, SN As Object
Set ParmQD = MyDB.QueryDefs("A Name")
ParmQD!MyParam = test$
Set SN = ParmQD.OpenRecordset(dbOpenDynaset)

' Using returned result set...
With SN
    On Error Resume Next

' Count returned records	
    .MoveLast
    On Error GoTo 0
    recCount% = .RecordCount
    If recCount% = 0 Then Exit Function

' Copy returned records to Variant array 
' as comma-delimited strings 
    ReDim tmp(recCount%)
    .MoveFirst
    For Counter% = 1 To recCount%
tmp(Counter%) = !filename & comma$ & !Path ' + comma$ & Y%
      .MoveNext
    Next Counter%
End With

' Finish up
SearchDB = tmp()
Set ParmQD = Nothing
Set SN = Nothing
End Function
