Egen udviklet klasse og MS database fletning

Hej

Med nedenstående kode kan jeg helte data fra et object, og putte udvalgte data ind i en databse.
Eksemplet er her med et fast værdi (ZZZZ), men jeg har brug for at denne og flere hentes fra en Access database. Derfor skal jeg have bygget en eller anden form for loop ind i det. 
<% 
  dim strSearchString
  dim intResults
  dim blnExact
  dim intMaxRows
  dim arrResults
  dim ObjPData
 
    'initialize object
    Set objPData=Server.CreateObject("wspdata.book")
   
    blnExact = true
    intMaxRows = 100
   
    'example getting data from initials:
    strSearchString="ZZZZ"
   
       
    intResults=objPData.GetSummaryFromInitials(strSearchString, blnExact, intMaxRows, arrResults)
           
    set ObjPData = nothing
%>

Jeg sætter så data ind i en tabel med denne kode:
<table border="1" width="100%" id="table1">
    <tr>
        <td>Phone number</td>
    </tr>
   
    <tr>   
        <td><%response.Write"" & arrResults(1,k)%>&nbsp;</td>
    </tr>

</table>

Nogen der kan hjælpe?

/Kim