update

Hej vad kan detta vara min kod ser ut så här:
function redigera()
Dim strSQL, rs, article, img, title, id, auther

'id=Request.Querystring("id")

article = Replace(Request.Form("article"), chr(10), "\<br\>")
title=Request.Form("title")
'article=Request.Form("article")
'auther=Request.Form("auther")
img=Request.Form("img")
category_id=Request.Form("category_id")
id=Request.Form("id")
		openConn()
		
		 strSQL = "UPDATE tbl_articles SET " \_
			& " img = '" & img & "', " \_
			& " article = '" & replace(article, "'", "''") & "', " \_
			& " title = '" & title & "', " \_
			& " category_id = '" & category_id & "' " \_
			& " WHERE ID = '" & id & "' " 

		'Response.Write strSQL
		'Response.End
		set rs= Server.CreateObject("ADODB.Recordset")
		rs.Open strSQL, minConn,1,2 

Response.Redirect("index.asp?action=redigera&category_id="&category_id&"")

rs.Close
Set rs = Nothing
minConn.Close
Set minConn = Nothing
End function

Detta är fel meddelandet

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

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

Den funkade på annan plattform jag bytte från sql server till access varför det då tänker ni det är attjag bara skulle kolla hur det funkade hemma. Så jag undrar är det nån inställning i access databasen.
ByBy