if med databas koppling mellan...

Hej! Jag undrar om det går att göra följande:

Set rs1 = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM gaster where gnamn = '"&request.querystring("vem")&"' "
rs1.Open Addera, Connect, 3, 3

if rs1("ager") = "Villa" then
Set Connect1 = Server.CreateObject("ADODB.Connection")
Connect1.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("hej.mbd")
Set rs2 = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM villor where vems = '"& rs("gnamn")&"'"
rs2.Open Addera, Connect1, 3, 3

elseif rs1("ager") = "Lagenhet" then

Set Connect1 = Server.CreateObject("ADODB.Connection")
Connect1.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("hej.mbd")
Set rs2 = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM lagenheter where vems = '"& rs("gnamn")&"'"
rs2.Open Addera, Connect1, 3, 3

elseif rs1("ager") = "Lyxvilla" then

Set Connect1 = Server.CreateObject("ADODB.Connection")
Connect1.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("hej.mdb")
Set rs2 = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM lyx where vems = '"& rs("gnamn")&"'"
rs2.Open Addera, Connect1, 3, 3

elseif rs1("ager") = "Tält" OR rs1("ager") = "Husvagn" OR rs1("ager") = "Stuga" then
camping = rs1("ager")
end if
%>

Fast på ett annat sätt antar jag... för jag får detta fel:

ADODB.Field error '80020009' 

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record. 

/kommun/hem.asp, line 0