Blog'umda çalışan kod yeni yapmaya çalıştığım şeyde çalışmıyor, nedeni ne olabilir sizce?

102. satır tam olarak "rs.open sorgu,conn,1,3" ile "if rs.eof then" arası ve gerekli datalar(tablo ve değer) veritabanında mevcut

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

[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.

/stok/login_check.asp, line 102



kadi=degistir(request.Form("kadi"))
parola=degistir(request.Form("parola"))

Set rs=server.CreateObject("ADODB.recordset")
sorgu="SELECT * FROM kadro WHERE kadi='" &kadi& "' and parola='" &parola& "';"
rs.open sorgu,conn,1,3

if rs.eof then
session("login")="no"
response.Redirect("login.asp")
else
session("login")="yes"
session("yetki")=rs("yetki")
session("kadi")=rs("kadi")
response.Redirect("stok.asp")
end if

rs.close


---------------------------------------------------------------------

aynı proje localhost'ta da şu hatayı veriyor;

Provider (0x80004005)
Belirtilmemiş hata
/conn.asp, line 3


<%
Set conn=server.CreateObject("ADODB.connection")
conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database.mdb"))
%>