h=SQLConnect("ORADSN","USERID","PWD") && Establish a connection IF h > 0 WAIT WINDOW "Connection Successful" NOWAIT =SQLExec(h,"{Call SP_MYPROC}") && Execute the stored procedure =SQLDisconnect(h) && Terminate the connection ELSE WAIT WINDOW "Connection Failed" ENDIF