Pull in Data from a SQL Table into Excel using VBA and a Data Validation Box

Question

I have code that is pulling in data from a SQL table, and using VB and a data validation List Box that allows the user to select a criteria then it should pull in the data associated with that criteria: but I am not getting any errors and it is running the code but not pulling in any data. Can someone let me know what I am doing wrong: Here is my example: I select scenario from the Data Validation List Box and get " No Records Returned" here is my code:

    Dim conn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim sConnString As String
    Dim sSQL As String
    Dim ceRg As Worksheet

    Set ceRg = ThisWorkbook.Worksheets("RG Schedule")

    If ceRg.FilterMode Then
        ceRg.ShowAllData
    End If
    ceRg.Range("A3").ClearContents

    ' Create the connection string.
    sConnString = "Provider=SQLOLEDB;Data Source=SQL\SQLEXPRESS;Initial Catalog=Sample;Trusted_Connection=yes;"


    ' Create the Connection and Recordset objects.
    Set conn = New ADODB.Connection
    Set rs = New ADODB.Recordset

    ' Open the connection and execute.
    conn.Open sConnString


    sSQL = "SELECT [ORDER #],[SCENARIO],[LOCATION],[FORM],[STATUS],"
    sSQL = sSQL & "CAST([Date Ordered] as date),"
    sSQL = sSQL & "[Design],[Cost],"
    sSQL = sSQL & "CAST([Critical Obligation Date] as date),"
    sSQL = sSQL & "[MGMT_APPROVED],[AUTHORIZATION_Y_N],[CUSTOMER]"
    sSQL = sSQL & "FROM [dbo].[vwRG_Schedule]"
    sSQL = sSQL & "WHERE [SCENARIO] = '" & Scenario & "' "
    sSQL = sSQL & "ORDER BY [ORDER #]"

    Set rs = conn.Execute(sSQL)

    ' Check we have data.
    If Not rs.EOF Then
        ' Transfer result.
        ceRg.Range("A3").CopyFromRecordset rs
    ' Close the recordset
        rs.Close
    Else
        MsgBox "Error: No records returned.", vbCritical
    End If

    ' Clean up
    If CBool(conn.State And adStateOpen) Then conn.Close
    Set conn = Nothing
    Set rs = Nothing


End Sub