Funktion til at styre database forbindelse.

Hejsa,

Jeg forsøger at lave en funktion til at få adgang til min database...men der er et enkelt problem...

Jeg har en funktion:

  Function opendb(SQL)
  Dim DSN, Conn
  DSN = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\db\db.mdb;"
  Set Conn = Server.CreateObject("ADODB.Connection")
  Conn.Open DSN
  Set opendb = Conn.Execute(SQL)
  End function

Denne forsøger jeg så at kalde med:
  Dim rs, SQL
  SQL = "Select * from Varer"
  rs = opendb(SQL)
    Do
    Response.write(rs("Vareid")&"<br>")
    rs.movenext
    loop while not rs.eof

Jeg får en fejl der siger at jeg ikke kan bruge movenext på rs objektet. Men hvis jeg ikke bruger rs.movenext og bare vil have den til at skrive det første ud i rs med response.write(rs("vareid")) virker det...

Nogle ideer?