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 ghghghghg()

Dim objADO As ADODB.Connection
Dim strSQL
Dim rs As ADODB.Recordset
Dim j As Integer

Set objADO = CreateObject("ADODB.Connection")
Set rs = New ADODB.Recordset
objADO.Properties("Prompt") =  2  'Prompt Always
objADO.Open "Driver={Microsoft ODBC for Oracle}; CONNECTSTRING=servername; UID=; PWD=;"
rs.Open "SELECT count(*) as CNT from tablename", objADO
j = rs( 0 ).Value
rs.Close
Set rs = Nothing
MsgBox j

End Sub