Fattar inte felet

Detta är koden:

<%
	

	If Request.Querystring("vad") = "in" Then

	Set Conn = Server.CreateObject("ADODB.Connection")
	Set DB   = Server.CreateObject("ADODB.Recordset")

	Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../db/topplista.mdb") & ";pwd=;"

	SQL = "SELECT * From users where ID='"&Request.Querystring("id")&"'"
	DB.Open SQL, Conn, 1, 2

	Dim SQL2
		SQL2 = "Update users Set [in]=[in]+1 Where ID='"&Request.Querystring("id")&"'"

	Conn.Execute(SQL2)

	DB.Close
	Conn.Close
	Set DB = Nothing
	Set Conn = Nothing

	ElseIf Request.Querystring("vad") = "ut" Then

	Set Conn = Server.CreateObject("ADODB.Connection")
	Set DB   = Server.CreateObject("ADODB.Recordset")

	Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../db/topplista.mdb") & ";pwd=;"

	SQL = "SELECT * From users where ID='"&Request.Querystring("id")&"'"
	[b]DB.Open SQL, Conn, 1, 2
[/b]
	Dim SQL3
		SQL3 = "Update users Set ut=ut+1 Where ID='"&Request.Querystring("id")&"'"

	Conn.Execute(SQL3)

	Dim Adress
		Adress = DB("hemsida")

	DB.Close
	Conn.Close
	Set DB = Nothing
	Set Conn = Nothing

	Response.Redirect Adress

End If
%>

Detta felmeddelande får jag:

Microsoft OLE DB Provider for ODBC Drivers fel '80040e07' 

[Microsoft][Drivrutin för ODBC Microsoft Access] Typblandningsfel i villkorsuttryck. 

/ampy/topplista/topplista.asp, line 253

Rad 253 har jag skrivit med fet stil.
Jag fårstår inte varför jag får detta felmeddelande.

------------------
Ampy.cjb.net

[Redigerat av ampy den 14 jan 2002]