البحث بالاسم في asp

عليكم السلام

dim conn

set conn=Server.CreateObject("ADODB.Connection")
conn.provider="Microsoft.Jet.OLEDB.4.0"

conn.open(Server.MapPath("Db1.mdb"))
set rs=Server.CreateObject("ADODB.Recordset")


rs.open "select * from Table1 where EmpName='"& txtEmpName &"'",conn,3,3

باعتبار

Db1=اسم القاعدة

Table1=اسم الجدول

EmpName=اسم حقل اسم الموظف

TxtEmpName=مربع النص الذي يدخل فيه اسم الموظف

do while not rs.eof then

response.write(rs("EmpName"));

rs.movenext


loop

من فضللك يا ريت توضح اكتر وياريت تعمل الملف الذى به Asp لعمل بحث