VB and Acsess. problems.

[adiga000]

I am trying for 3 days to connect to ACCESS detabase in ASP file that will be in a VB file...
and ther is no success.
i am trying in ADO connection..

it doesnt work!!!
need help!

this is the file to connect the detabase:

<%
Dim Conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.Provider = "Microsoft.Jet.OLEDB.4.0"
conn.Open "db1.mdb"

Set rs = Server.CreateObject("ADODB.recordset")
rs.Open "Select * from orders", conn

do until rs.EOF
  for each x in rs.Fields
    Response.Write(x.username)
    Response.Write(" = ")
    Response.Write(x.passowrd) 
  next
  Response.Write("<br/>")
  rs.MoveNext
loop

%>