I have a simple vb dll

Function getNames(strSubscriber As String)
    strSQL = "SELECT first_nm, last_nm from tbl_member where subscriber_id = '" & strSubscriber & "'"

strConnection = "DSN=BCI5"

'Set Cnxn = New ADODB.Connection
Cnxn.Open strConnection
rs.Open strSQL, Cnxn, adOpenStatic, adLockReadOnly, adCmdText
getNames = rs

End Function

and I am trying to get the asp to call the object and return the record set


strSSN = "98989898"


Set ComObject = Server.CreateObject("MEDSUP.SUP_ENROLLMENT")



Set rs = ComObject.getNames(cstr(strSSN),"")

rs.open
if not rs.eof then
    while not rs.eof
        Response.Write rs("first_nm") & "<BR><BR>"
        rs.movenext
    wend
else
    Response.Write "None Found"
end if

I keep getting a Wrong number of arguments or invalid property assignment: 'ComObject.getNames' error

any help would be appreciated

;;; strSQL = "SELECT first_nm, last_nm from tbl_member where subscriber_id = '" & strSubscriber & "'"

Is the subscriber_id field an integer or a string?
The name of the field leads me to believe its an integer, if thids is the case you need to remove the single quotes like so:

strSQL = "SELECT first_nm, last_nm FROM tbl_member WHERE subscriber_id = " & strSubscriber & ""


Wind is your friend
Matt

The function only takes one parameter but you are trying to pass two...