LISTING 2: Command Button's Click Event Procedure

Set mrst = New ADODB.Recordset
  mrst.CursorLocation = adUseClient
  mrst.Open _
    Source:="procCategoryList", _
    ActiveConnection:=mcnn, _
    CursorType:=adOpenStatic, _
    LockType:=adLockReadOnly, _
    Options:=adCmdStoredProc

  Set grdCategory.DataSource = mrst
  mrst.Close
  Set mrst = Nothing