'ExecuteScalar Test
'ExecuteQuery Test
util.Sql = "Select ID, DESCRIPTION, UNIT_PRICE FROM PART WHERE ID LIKE ‘M%'"
objArr = util.ExecuteQuery
msgbox ubound(objArr ,1) & " Rows, " & ubound(objArr ,2) & " Columns"
'Loop the Array
For row = 0 to ubound(objArr ,1)
IF MSGBOX ("PartID: " & objArr( row,0 ) & " Description: " & objArr(row,1) & _ " Unit Price:<" & objArr(row,2) & ">",VbOkCancel) = VbCancel THEN EXIT FOR
END IF