parameterize Excel Sheet Name in SQL

[bjitsidhu]

Code:

Dim strQuery, sheetName
    sheetName="pSheetOrFileName$"
    Dim strTestID  : strTestID=Trim("One")                                  
    Set objConnection = fnGetConnection(strFilePath)
    strQuery="SELECT * FROM  ['"&sheetName"'] WHERE TestID='"&strTestID&"' "

I used this code and wish to provide excel sheet Name dynamically.... In above code have issue
Any suggestion for correction welcome...........