Dim Conn,strSQL,objRec
Dim strUser
strUser = "admin"
Set Conn = Server.Createobject("ADODB.Connection")
Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("mydatabase.mdb"),"" , ""
strSQL = "SELECT * FROM customer WHERE CustomerID = '"&strUser&"' "
Set objRec = Conn.Execute(strSQL)
If objRec.EOF Then
Response.write("Not found strUser="&strUser))
Else
Response.write objRec.Fields("Name").Value
End IF