I am trying to access a remote Oracle DB from within Excel,
gathering a number of calc data and writing a summary of
the calc for the customer service area. Everytime I try to
put the field into a string the completion time is almost one
minute. There are normally 65 fields to a single calculation.

Am I doing something wrong? Code below.

Dim rstResult_String(100) as Variant
Set adoConnection = New ADODB.Connection

adoConnection.Open "Driver={Microsoft ODBC for Oracle};" _
& "Server=My.world;" & "Uid=RWC;" & "Pwd=myPassword;"

GetCalResults:
Set adoRecordset = New ADODB.Recordset
Workbooks(“ADO Calc Template.xls”).Activate
Sheets("Calculation Result").Select
curRow = curRow + 1
If curRow - 3 > maxRows Then GoTo WriteResults

strSQLStatement = "SELECT DB_CALC_RESULT.RESULT_STRING" & vbLf
strSQLStatement = strSQLStatement & _
"FROM Z_LGE.DB_CALC_RESULT DB_CALC_RESULT" & vbLf
strSQLStatement = strSQLStatement & _
"WHERE ( DB_CALC_RESULT.CALC_DATE_TIME = " & _
"TO_DATE('" & calcDATE & "','MM/DD/YYYY HH24:MIS') " & vbLf
strSQLStatement = strSQLStatement & _
"AND DB_CALC_RESULT.SSN = " & EmpSSN & " " & vbLf
strSQLStatement = strSQLStatement & _
"AND DB_CALC_RESULT.RULE_ID = '" & _
empRULE(curRow - 3) & "' " & vbLf
strSQLStatement = strSQLStatement & _
"AND DB_CALC_RESULT.ATTRIBUTE_CODE = '" _
& empCODE(curRow - 3) & "') "

adoRecordset.Open strSQLStatement, adoConnection, _
adOpenStatic, adLockReadOnly
rstResult_String(curRow - 3) = adoRecordset(0)
<<< THE ABOVE STATEMENT IS RUNNING VERY SLOWLY

adoRecordset.Close
Set adoRecordset = Nothing
GoTo GetCalResults