I have a fully functional vb6 script. I want to make it into an activex dll.

My problem is i make the dll, but I am not sure how i can call the variables in asp, here's what I am trying to do:

Code:
Public filelocation As Variant
Public function getstore()

Open filelocation For Binary As #1
Get #1, &H5, bytData

miconcnt = "&h" & Hex$(bytData(3)) & Hex$(bytData(2)) & Hex$(bytData(1)) & Hex$(bytData(0))

miconcnt = CLng(miconcnt)

Close #1

Dim conn As ADODB.Connection
         Dim rs As ADODB.Recordset
          Dim conacc As String
          Dim subJID
       
          Set conn = New ADODB.Connection
          Set rs = New ADODB.Recordset
          connclan = "Driver={SQL Server};Server=xxxx;Database=clandb;Uid=sa;Pwd=xxxx;"

          conn.Open constore

rs.Open "select * from cl where miconcnt = '" & miconcnt & "'", constore
storename = rs!storename
rs.Close
conn.Close
End function
And I am using this to get the value from asp:
Code:
<HTML>
<TITLE>My Cool DLL </TITLE>
<BODY>
<%
dim filelocation

filelocation = "c:\stores\store1023.dat"
	Set newf=Server.CreateObject("storedll.storeclass")

	finalanswer=newf.getstore(filelocation)


	Response.write finalanswer
%>
When i do this i get an error saying the method or property doesn't have enough arguements or something.

What I want to do is response.write storename
Please help me