insert sql result into variable in vba Excel

Sub ghghghghg()
Dim objADO
Dim objRs
Dim strSQL
Dim j As Integer
Set objADO = CreateObject("ADODB.Connection")
objADO.Properties("Prompt") = 2 'Prompt Always
objADO.Open "Driver={Microsoft ODBC for Oracle}; CONNECTSTRING=servername; UID=; PWD=;"
strSQL = "SELECT count(*) INTO '" & j & "' from tablename "
objADO.BeginTrans
objADO.Execute strSQL
objADO.CommitTrans
objADO.Close
Set objADO = Nothing
End Sub

Sub rscount()
Dim objADO As ADODB.Connection
Dim strSQL
Dim rs As ADODB.Recordset
Dim j As Integer
Worksheets("ttttt").TextBox16.Text = ""
Set objADO = CreateObject("ADODB.Connection")
Set rs = New ADODB.Recordset
objADO.Properties("Prompt") = 2
On Error Resume Next
objADO.Open "Driver={Microsoft ODBC for Oracle}; CONNECTSTRING=b2oracle.test; UID=ABS; PWD=;"
If Err.Number = -2147217842 Then
MsgBox "Interrupted by user"
Exit Sub
End If
If Err.Number = -2147467259 Then
MsgBox "Server is absent"
Exit Sub
End If
If Err.Number = -2147217843 Then
MsgBox "Incorrect username or password"
Exit Sub
End If
On Error Resume Next
rs.Open "SELECT count(*) as CNT from zoo.marco_tmp_131011d", objADO
If Err.Number = -2147217865 Then
MsgBox "Insufficient privileges"
Exit Sub
End If
On Error GoTo 0
j = rs(0).Value
rs.Close
Set rs = Nothing
objADO.Close
Set objADO = Nothing
Worksheets("ttttt").TextBox16.Text = j
MsgBox "Number of rows in table: " & j
End Sub