Microsoft JET Database Engine error '80004005'

Hi, Can someone please help me to solve this problem?

I get an error as

Microsoft JET Database Engine error '80004005'


Selected collating sequence not supported by the operating system.


/capstone/admin/adminlogin.asp, line 60





Here is my code,


<% dim rs, sql, conn, connstr
set conn = server.createobject("ADODB.Connection")
connstr = "provider=Microsoft.Jet.OLEDB.4.0;data source=e:\web\bchoinet000\htdocs\Capstone\syracuselife.mdb"


conn.open connstr %>


<%


aspname = "adminlogin.asp"


if request("login") = "true" then
call authenticate
else
call loginform
end if



sub loginform
%>


Administrative Login:



<form method="post" action="<%=aspname%>?login=true">
<table>
<tr>
<td>User Name:</td>
<td><input type="text" name="username" /></td>
</tr>
<tr>
<td>Password:</td>
<td><input type="password" name="password" /></td>
</tr>
<tr>
<td colspan="2"><input type="submit" value="Login" /></td>
</tr>
</table>


<%


end sub






sub authenticate






dim rs, sql
set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM admin WHERE admin_name = '" &amp; replace(request("username"),"'","''") &amp; "'"


rs.Open sql, conn, 3, 1


if rs.EOF then
%>Username is incorrect. Please Try Again.<%
call loginform
elseif rs("admin_password") <> replace(request("password"),"'","''") then


%>That password is incorrect. Please try again.<%
call loginform
else
session("admin_id") = "MagicalFurnitureKey"
response.redirect ("index.asp")
end if


rs.Close


end sub
%>