<div>
Bob,<br />
<br />
As always Thanks. &nbsp;This was a project I just imported into 2005.<br />
<br />
Rich
</div>


Bob,

As always Thanks.  This was a project I just imported into 2005.

Rich

<div>
<div class="content wysiwyg-content">
I am getting a Warning for rsEmailList in the first line of the following funciton that says &quot;Return type of function 'rsEmailList' is &nbsp;not CLS-compliant&quot;. &nbsp;What do I need to do to this function to make it compliant?<br />
<br />
Thanks,<br />
<br />
&nbsp; &nbsp; Public Function rsEmailList() As ADODB.Recordset<br />
&nbsp; &nbsp; &nbsp; &nbsp; 'Create a Recordset to set to the Function recordset<br />
&nbsp; &nbsp; &nbsp; &nbsp; Dim rs As New ADODB.Recordset<br />
&nbsp; &nbsp; &nbsp; &nbsp; ' set Function RecordSet to rs Recordset<br />
&nbsp; &nbsp; &nbsp; &nbsp; rsEmailList = rs<br />
&nbsp; &nbsp; &nbsp; &nbsp; Dim cmdEmailList As New ADODB.Command<br />
&nbsp; &nbsp; &nbsp; &nbsp; cmdEmailList.CommandText = &quot;selLAStageTixAddress&quot;<br />
&nbsp; &nbsp; &nbsp; &nbsp; cmdEmailList.CommandType = ADODB.CommandTypeEnum.adCm<wbr />dStoredPro<wbr />c<br />
&nbsp; &nbsp; &nbsp; &nbsp; cmdEmailList.ActiveConnect<wbr />ion = objConn<br />
&nbsp; &nbsp; &nbsp; &nbsp; rsEmailList.CursorLocation<wbr /> = ADODB.CursorLocationEnum.a<wbr />dUseClient<wbr /><br />
&nbsp; &nbsp; &nbsp; &nbsp; rsEmailList.LockType = ADODB.LockTypeEnum.adLockR<wbr />eadOnly<br />
&nbsp; &nbsp; &nbsp; &nbsp; rsEmailList = cmdEmailList.Execute<br />
<br />
&nbsp; &nbsp; End Function
</div>
</div>


I am getting a Warning for rsEmailList in the first line of the following funciton that says "Return type of function 'rsEmailList' is  not CLS-compliant".  What do I need to do to this function to make it compliant?

Thanks,

    Public Function rsEmailList() As ADODB.Recordset
        'Create a Recordset to set to the Function recordset
        Dim rs As New ADODB.Recordset
        ' set Function RecordSet to rs Recordset
        rsEmailList = rs
        Dim cmdEmailList As New ADODB.Command
        cmdEmailList.CommandText = "selLAStageTixAddress"
        cmdEmailList.CommandType = ADODB.CommandTypeEnum.adCmdStoredProc
        cmdEmailList.ActiveConnection = objConn
        rsEmailList.CursorLocation = ADODB.CursorLocationEnum.adUseClient
        rsEmailList.LockType = ADODB.LockTypeEnum.adLockReadOnly
        rsEmailList = cmdEmailList.Execute

    End Function

Return type of function 'rsEmailList' is  not CLS-compliant warning.

Visual Basic .NET (VB.NET) is an object-oriented programming language implemented on the .NET framework, but also supported on other platforms such as Mono and Silverlight. Microsoft launched VB.NET as the successor to the Visual Basic language. Though it is similar in syntax to  Visual Basic pre-2002, it is not the same technology,

Visual Basic.NET

The .NET Framework is not specific to any one programming language; rather, it includes a library of functions that allows developers to rapidly build applications. Several supported languages include C#, VB.NET, C++ or ASP.NET.