>>>> >>>>Dim objUtil As Inventory.InvUtilities >>>>Dim MyConn As ADODB.Connection >>>>Dim objCmd As ADODB.Command >>>>Dim rs As ADODB.Recordset >>>>Dim strStoredProc As String >>>>Dim lngRecordsAffected As Long >>>> >>>>' Create the utility object used to get the connection >>>>Set objUtil = CreateObject("Inventory.InvUtilities") >>>>Set MyConn = objUtil.GetConnection() ' Connection object CursorLocation is declared as adUseClient >>>> >>>>Set objCmd = New ADODB.Command >>>>Set rs = New ADODB.Recordset >>>>rs.CursorLocation = adUseClient ' Make sure it is client side >>>> >>>>With objCmd >>>> .ActiveConnection = MyConn >>>> .CommandText = "usp_GetSKUAttributesListByName" >>>> .CommandType = adCmdStoredProc >>>> Set rs = .Execute(lngRecordsAffected, Array(strName), adCmdStoredProc) >>>> .ActiveConnection = Nothing >>>>End With >>>> >>>>' strStoredProc = "usp_GetSKUAttributesListByName " & "('" & Trim(strName) & "')" >>>>' >>>>' With rs >>>>' .CursorLocation = adUseClient >>>>' .Open strStoredProc, MyConn, adOpenForwardOnly, adLockReadOnly, adCmdStoredProc >>>>' .ActiveConnection = Nothing >>>>' End With >>>> >>>>Set GetAttribsByName = rs ' To pass the recordset back >>>> >>>>' Clean up references >>>>Set rs = Nothing >>>>MyConn.Close ' The recordset data goes away at this command >>>>Set MyConn = Nothing >>>>Set objUtil = Nothing >>>> >>>>Exit Function>>>>