VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 2  'RequiresTransaction
END
Attribute VB_Name = "NWMtsData"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Public Function GetEmployees() As ADODB.Recordset
    Dim strCnn As String
    Dim strCmd As String
        

        
    strCnn = "SERVER=localhost;PROVIDER=sqloledb;UID=sa;PWD=;DATABASE=northwind;"
    strCmd = "SELECT firstname, lastname, title FROM Employees"
    
    Dim rs As New ADODB.Recordset
    rs.Open strCmd, strCnn, adOpenForwardOnly, adLockReadOnly, 1
    Set GetEmployees = rs
    
    GetObjectContext.SetComplete
End Function

