Getting A Record From Access

I'm trying to retrieve some information from MS Access and display it but I have very little experience with ASP (I was trained in ASP.Net )

Right now my code looks like this and doesn't return anything:

----------
Dim ConnectionString
ConnectionString = "DATA PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & vPath & ";"

Dim Connection
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.ConnectionTimeout = 30
Connection.CommandTimeout = 80
Connection.Open ConnectionString

Dim rs
set rs = Server.CreateObject("ADODB.RecordSet")

rs.Open "SELECT ItemStatusId FROM Users WHERE UserName = '" & session("UserName") & "'", Connection, adOpenForwardOnly, adLockOptimistic

do while not rs.EOF
for each item in rs.Fields
response.Write(rs("ItemStatusId"))
next
rs.MoveNext
loop

rs.Close
set rs = nothing

Connection.Close
Set Connection = nothing
----------

The problem shouldn't be the SQL statement because if I create a query right in Access using that statement it works exactly how I want it to.

When I run the page this is on the page times out and gives me this error:
-----------
Active Server Pages error 'ASP 0113'

Script timed out

/eos/quicktemp.asp

The maximum amount of time for a script to execute was exceeded. You can change this limit by specifying a new value for the property Server.ScriptTimeout or by changing the value in the IIS administration tools.
------------

If I remove just the "Do While" loop, the page will run instantly but obviously it won't display what I am looking for.

Any help with this would be greatly appreciated.

Ryan