Вставка sql результата в переменную vba Excel

Формулировка задачи:

Всем привет,
пытаюсь вставить sql результат в переменную vba Excel:

ghghghghg()
 objADO
 objRs
 strSQL
 j  

 objADO = CreateObject()
objADO.Properties() =  
objADO. 
strSQL =  & j & 
objADO.BeginTrans
objADO.Execute strSQL
objADO.CommitTrans
objADO.
 objADO = 

Останавливается на строке "objADO.Execute strSQL" с ошибкой:
Run-time error '-2147217900 (80040e14)':
[Microsoft][ODBC driver for Oracle][Oracle]ORA-00905: missing keyword
Поскажите, что пропущено, пожалуйста.

Решение задачи: «Вставка sql результата в переменную vba Excel»

textual
                            Листинг программы 
                        

                            <font color="blue">Sub</font> ghghghghg()

<font color="blue">Dim</font> objADO <font color="blue">As</font> ADODB.Connection
<font color="blue">Dim</font> strSQL
<font color="blue">Dim</font> rs <font color="blue">As</font> ADODB.Recordset
<font color="blue">Dim</font> j <font color="blue">As</font> <font color="blue">Integer</font>

<font color="blue">Set</font> objADO = CreateObject(<font color="teal">"ADODB.Connection"</font>)
<font color="blue">Set</font> rs = <font color="blue">New</font> ADODB.Recordset
objADO.Properties(<font color="teal">"Prompt"</font>) = <font color="darkblue"><b>2</b></font> <font color="#00AA00">'Prompt Always</font>
objADO.<font color="blue">Open</font> <font color="teal">"Driver={Microsoft ODBC for Oracle}; CONNECTSTRING=servername; UID=; PWD=;"</font>
rs.<font color="blue">Open</font> <font color="teal">"SELECT count(*) as CNT from tablename"</font>, objADO
j = rs(<font color="darkblue"><b>0</b></font>).Value
rs.<font color="blue">Close</font>
<font color="blue">Set</font> rs = <font color="blue">Nothing</font>
MsgBox j

<font color="blue">End</font> <font color="blue">Sub</font>

                        