Sub Recompute(Source As String, P1 As String, P2 As String)
If P1 = "" Then Exit Sub
If P2 = "" Then Exit Sub


On Error GoTo ErrorHandler

Select Case Source
Case "Pivot"
    Range("C15").Select
    
    With ActiveWorkbook.PivotCaches.Item(1)
        .Connection = _
        "ODBC;DRIVER=SQL Server;SERVER=datamart.onsemi.com;UID=myuid;APP=Microsoft Office 2003;WSID=myuid-D4;DATABASE=SM;Trusted_Connection=Yes"
        .CommandType = xlCmdSql
         .CommandText = Array("exec asp_World '" & P1 & "', '" & P2 & "'")
    End With
Range("A2:L2").FormulaR1C1 = "'ASP@Mix change impact for " & P1 & " To " & P2
Case "Raw Data"
  Sheets("raw").Select
    Range("D10").Select
    With Selection.QueryTable
        .Connection = _
        "ODBC;DRIVER=SQL Server;SERVER=datamart.onsemi.com;UID=myuid;APP=Microsoft Office 2003;WSID=myuid-D4;DATABASE=SM;Trusted_Connection=Yes"
        .CommandType = xlCmdSql
        .CommandText = Array("exec asp_World '" & P1 & "', '" & P2 & "'")
        .Refresh BackgroundQuery:=False
    End With
End Select

Exit Sub
ErrorHandler:
MsgBox ("An error occured, please try again. " & P1 & ", " & P2)
End Sub


Private Function adoVar() As Integer
Dim Connstr As String
Dim cnnConnect As ADODB.Connection
Dim rstRecordset As ADODB.Recordset
Dim MyCmd As String
' this function requires a reference to ADO active X libraries

MyCmd = "SELECT case when r.Status = 'Ready' then 1 else 0 end AS Status From onglobals.dbo.tb_IsReady r WHERE (r.Name = 'ASP_World_tbl') "
Connstr = "ODBC;DRIVER=SQL Server;SERVER=rocky;UID=myuid;APP=Microsoft Office 2003;WSID=myuid-D4;DATABASE=ONglobals;Trusted_Connection=Yes" _

Set cnnConnect = New ADODB.Connection
cnnConnect.Open Connstr

Set rstRecordset = New ADODB.Recordset
rstRecordset.Open Source:=MyCmd, ActiveConnection:=cnnConnect, _
    CursorType:=adOpenDynamic, LockType:=adLockReadOnly, Options:=adCmdText
adoVar = rstRecordset.Fields(0).Value

cnnConnect.Close
Set rstRecordset = Nothing

End Function