mi da questo errore

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

[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.

/public/elencodaticod.asp, line 102


questo è l'attuale script



<%

' PAGINAZIONE
Dim boolFound, intPageNum, intNumRows, intCount, intLinks, intPagina


strSQL = "SELECT * FROM immobili WHERE codiceimmobile = '" & Trim(Session("codiceimmobile")) & "'"

Set objrs = Server.CreateObject("ADODB.Recordset")
objrs.cursorlocation = 3
objrs.Open strSQL, cn

Const RECORDSPERPAGE = 10000

objrs.PageSize = RECORDSPERPAGE

If ( Request("pn") <> "" ) Then
intPageNum = CInt(Request("pn"))
Else
intPageNum = 1
End If

'Conteggio delle righe
intNumRows = objrs.RecordCount

If (intNumRows <> 0) Then
objrs.AbsolutePage = intPageNum
'Esposizione dati
For intCount = 1 To objrs.PageSize


%>