List 6-43　Recordsetオブジェクトを返す例

  1： Function GetCustomers4() As ADODB.Recordset
  2：     Dim objRec As ADODB.Recordset
  3：     
  4：     ' データベースと接続し，SELECT文を発行する
  5：     Set objRec = CreateObject("ADODB.Recordset")
  6：     objRec.Open "SELECT * FROM 顧客情報", _
   　                 "Driver=SQL Server;Server=(local);UID=sa;Database=businesssampleDB;", _
   　                 adOpenForwardOnly, adLockReadOnly, adCmdText
  7：     
  8：     ' 戻り値を取得したレコードセットとする
  9：     Set GetCustomers4 = objRec
 10： End Function