Hi,

Get a Microsoft VBScript runtime error '800a01c2' error when i run this asp/vbscript code and i just cant figure out why. Please Help

Code:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Untitled Document</title>
</head>
<body>
<%
Dim vhistory, conn, cst, strSQL
vhistory = Request.QueryString

cst = "Provider=Microsoft.Jet.OLEDB.4.0;" &_
"Data Source=" & Server.MapPath("ozone.mdb")

set conn = CreateObject("ADODB.Connection")

conn.open(cst)

strSQL="SELECT application FROM patient WHERE ID = " & vhistory

conn.execute(strSQL)

Response.Write conn("application")
%>
</body>
</html>