Too few parameters, igen

Tja, hade problem me ett asp script där man ska kunna ändra lite info om sig själv som inloggad användare. Skrev om de förut där alla sa att felet låg i SQL:en. Så ja försökte fixa de men de gick åt helvete... Så ja undrar om ni kan hjälpa mig igen?
Föst kommer man till de klasiska forumet som ser ut så här:

<!-- #include file="adovbs.inc" -->

<% If Request.QueryString("prat") = "" Then %>

<%	Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&server.mappath("..\data\data.mdb")

	strAdressID = UCase(Request.QueryString("AdressID"))
	Set RecSet = Server.CreateObject("ADODB.Recordset")
	visa = "SELECT * FROM users WHERE username  LIKE '" & strAdressID & "%'" ' " 
   RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic %>
	
	<form method="POST" action="installningar2.asp">

	<input type="hidden" name="ad" value="<% =Request.QueryString("adressID") %>">

	<FONT CLASS="m">&nbsp;Lösenord<BR>		
	<input type="password" size="28" name="password" value="<% =RecSet("password") %>"><br><BR>	

	<FONT CLASS="m">&nbsp;För och efternamn:<BR>		
	<input type="text" size="28" name="namn" value="<% =RecSet("namn") %>"><br><BR>	
	
	<FONT CLASS="m">&nbsp;Ålder<BR>		
	<input type="text" size="28" name="alder" value="<% =RecSet("alder") %>"><br><BR>	

	<FONT CLASS="m">&nbsp;bor<BR>		
	<input type="text" size="28" name="bor" value="<% =RecSet("bor") %>"><br><BR>	

	<FONT CLASS="m">&nbsp;bild 
	<input type="text" size="28" name="bild" value="<% =RecSet("bild") %>"><br><BR>	

	&nbsp;Lite om dig själv 

	<textarea rows="5" cols="79"  name="text"> <% =RecSet("omsigsjalv") %></textarea><BR><BR>	

	<FONT CLASS="m">&nbsp;Mail:<BR>		
	<input type="text" size="33" name="mail" value="<% =RecSet("mail") %>"><br><BR>

	<FONT CLASS="m">&nbsp;Hemsida:<BR>		
	<input type="text" size="33" name="hemsida" value="<% =RecSet("hemsida") %>"><br><BR>

	<FONT CLASS="m">&nbsp;ICQ:<BR>		
	<input type="text" size="33" name="icq" value="<% =RecSet("icq") %>"><br><BR>

	<FONT CLASS="m">&nbsp;Lunarstorm:<BR>		
	<input type="text" size="33" name="lunar" value="<% =RecSet("lunar") %>"><br><BR

	<input type="submit" value="Uppdatera">

	</form>

<% End If %>

Som sen går vidare till installningar2.asp:

<!-- #include file="adovbs.inc" -->

<%	Set Connect = Server.CreateObject("ADODB.Connection")
	Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&server.mappath("..\data\data.mdb")

	strAdressID = UCase(Request.QueryString("AdressID"))
	Set RecSet = Server.CreateObject("ADODB.Recordset")
	visa = "SELECT * FROM users WHERE username  LIKE '" & strAdressID & "%'" ' " 
  	RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic

	RecSet("Password") = Request.Form("password")
	RecSet("namn") = Request.Form("namn")
	RecSet("alder") = Request.Form("alder")
	RecSet("bor") = Request.Form("bor")
	RecSet("bild") = Request.Form("bild")
	RecSet("omsigsjalv") = Request.Form("omsigsjalv")
	RecSet("mail") = Request.Form("mail")
	RecSet("hemsida") = Request.Form("hemsida")
	RecSet("icq") = Request.Form("icq")
	RecSet("lunar") = Request.Form("lunar")

	RecSet.Update
	RecSet.Close %>

Tillägas kan vara att det inte behöver vara säkert alls, bara de funkar =)

Just ja, felmedelandet oxå:

Microsoft OLE DB Provider for ODBC Drivers error '80040e10' 

[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1. 

/login/installningar2.asp, line 49

Hoppas nån orkar med mig igen =)
// KoTTeN