Code:
sSQL = "SELECT * FROM [" & vsRecordSource & " ]"
Should be

Code:
 sSQL = "SELECT [ColumnNameYouWant] FROM [" & vsRecordSource & " ]"
PS: * means all column