Data type mismatch

Could anyone tell me why im getting this error? (line 178 is highlighted)

Error:

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

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

/************/db/default.asp, line 178

Code:

<%

Dim con
Dim rs
Dim strSQL

Set con = Server.CreateObject("ADODB.Connection")

con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("********.mdb")

Set rs = Server.CreateObject("ADODB.Recordset")

strSQL = "SELECT tblLogin.* From tblLogin WHERE tblLogin.ID = '" & request.cookies("login") & "';"

rs.Open strSQL, con

Do While Not rs.EOF

response.write "<img src=""rating/" & rs("Rating") & ".gif"">"

Select case rs("Rating")

case 1
response.write(" Private")

Case 2
response.write(" Sergant")

Case 3
response.write(" Commander")

Case 4
Response.write(" Major")

Case 5
Response.write(" General")

End Select

     rs.MoveNext

Loop

rs.Close
Set rs = Nothing
Set con = Nothing

%>

Thanks in advance, Martin.