List 6-45　データベースと接続していないADODB.Recordsetオブジェクトを返す

  1： Function GetCustomers4() As ADODB.Recordset
  2：     Dim objRec As ADODB.Recordset
  3：     
  4：     ' データベースと接続し，SELECT文を発行する
  5：     Set objRec = CreateObject("ADODB.Recordset")
  6：    ' カーソルロケーションをローカルカーソルに設定する
  7：     objRec.CursorLocation = adUseClient
  8：     
  9：     ' SELECT文の実行
 10：     objRec.Open "SELECT * FROM 顧客情報", _
   　                 "Driver=SQL Server;Server=(local);UID=sa;Database=businesssampleDB;", _
   　                 adOpenStatic, adLockReadOnly, adCmdText
 11：     
 12：     ' データベースコネクションと切り離す
 13：     Set objRec.ActiveConnection = Nothing
 14：     
 15：     ' 戻り値を取得したレコードセットとする
 16：     Set GetCustomers4 = objRec
 17：     Set objRec = Nothing
 18： End Function