Run-time error '2147217900 (80040e14)' when fetch data from excel to SQL server

Dear All,

I tried to fetch data from excel to SQL server. I have created Recordset, connection and command under ADODB. Everything were fine because I used this method many times already.
I have problem when I wanted to fetch one SQL command with variable (which I took from one of the excel field with name 'ProjectCode'). I got the value from that cell with command Range("ProjectCode").Value. My SQL query is running well when I run directly from Microsoft SQL Server Management Studio but I got error when I translate this to VbScript on my excel. Can please someone help me because I never use variable on my query using VbScript on my excel before? I throw the following command to my commandText on ADODB.Command. (Dim vlo_Command As New ADODB.Command. End then I put the following script to "vlo_Command.CommandText = 'my script below'"). I got runtime error '2147217900 (80040e14). Invalid column name 'P100' (assume value of ProjectCode field was P100) when I run my script. Can please someone help me?

SELECT Act.ActName, " & vbCrLf & _
"Users.FullName,TimeS.WeekEndingDate," & vbCrLf & _
"Times.HrsWrkMonday,TimeS.HrsWrkTuesday,TimeS.HrsWrkWednesday,TimeS.HrsWrkThursday,TimeS.HrsWrkFrida y,TimeS.HrsWrkSaturday,TimeS.HrsWrkSunday," & vbCrLf & _
"SUM(HrsWrkMonday+HrsWrkTuesday+HrsWrkWednesday+HrsWrkThursday+HrsWrkFriday+HrsWrkSaturday+HrsWrkSun day) as 'TimeSpent'," & vbCrLf & _
"Times.TeamID," & Range("ProjectCode").Value & vbCrLf & _
"FROM " & vbCrLf & _
"[IT_Timesheet].[dbo].[tblITTimeSheet] TimeS " & vbCrLf & _
"INNER JOIN " & vbCrLf & _
"[IT_Timesheet].[dbo].[tblITActivity] Act " & vbCrLf & _
"ON " & vbCrLf & _
"TimeS.ActID = Act.ActID " & vbCrLf & _
"INNER JOIN " & vbCrLf & _
"[IT_Timesheet].[dbo].[tblITUserAdministration] Users " & vbCrLf & _
"ON " & vbCrLf & _
"TimeS.UserId = Users.UserId WHERE Act.ActID = (SELECT ActID FROM [IT_Timesheet].[dbo].[tblITActivity] WHERE ActName LIKE '%' +" & Range("ProjectCode").Value & "+ '%') " & vbCrLf & _
"GROUP BY " & vbCrLf & _
"Act.ActName," & vbCrLf & _
"Users.FullName," & vbCrLf & _
"TimeS.WeekEndingDate," & vbCrLf & _
"Times.HrsWrkMonday,TimeS.HrsWrkTuesday,TimeS.HrsWrkWednesday,TimeS.HrsWrkThursday,TimeS.HrsWrkFrida y,TimeS.HrsWrkSaturday,TimeS.HrsWrkSunday," & vbCrLf & _
"Times.TeamID,TimeS.Reference " & vbCrLf & _
"HAVING " & vbCrLf & _
"Sum (HrsWrkMonday + HrsWrkTuesday + HrsWrkWednesday + HrsWrkThursday + HrsWrkFriday + HrsWrkSaturday + HrsWrkSunday) <> 0 " & vbCrLf & _
"Order BY WeekEndingDate Desc, FullName Desc"