VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "ContactList"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit

Private Function Fetch() As ADODB.Recordset
   Dim cn As ADODB.Connection
   Dim cm As ADODB.Command
   Dim rs As ADODB.Recordset
   
   Set cn = New Connection
   cn.CursorLocation = adUseClient
   cn.Open DB_CONN
   
   Set cm = New Command
   With cm
      .ActiveConnection = cn
      .CommandText = "getContacts"
      .CommandType = adCmdStoredProc
      Set rs = .Execute
   End With
   Set rs.ActiveConnection = Nothing
   Set Fetch = rs
   
   Set rs = Nothing
   Set cm = Nothing
   cn.Close
   Set cn = Nothing
End Function
Public Function GetContacts() As Variant
  GetContacts = Fetch.GetRows
End Function

