Why don't you post your workbook ?

Sub M_snb()
    sn = Sheet1.ListObjects(1).HeaderRowRange

    With CreateObject("ADODB.Recordset")
        .Open "SELECT " & sn(1, 1) & ", " & sn(1, 4) & " FROM `Sheet1$`", "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0 Xml"""
        MsgBox .getstring
    End With
End Sub