Listing A: VB Code That Measures Query Response Time

' cn (ADO connection) and sql (MDX string) are global variables so that they can be reused.
Dim cn As New ADODB.Connection
Dim sql As String
' local scope and variables
Dim rs As New ADODB.Recordset
' SYSTEMTIME is a Win32 structure data type.
Dim sysTime1 As SYSTEMTIME
Dim sysTime2 As SYSTEMTIME
…
GetLocalTime sysTime1
rs.Open sql, cn, adOpenForwardOnly, adLockBatchOptimistic
Do While (Not rs.EOF)
   MSFlexGrid1.AddItem rs.Fields(0).Value & ... 
   rs.MoveNext
Loop
rs.Close
GetLocalTime sysTime2