Conexão Com banco de dados

:(

Galera o códgio que eu to usando é o seguinte:

Dim Evento

Evento = Request.QueryString("Evento")

if Request.Cookies("AcessoIT")(Evento) = "" then

Dim StrSql

Dim ObjConn

Dim ObjRSCont

Dim Qtd_Acessos

set ObjConn = Server.CreateObject("ADODB.Connection")

ObjConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("contador.mdb") &";"

ObjConn.Open

 StrSql = "Select * from acessos where local= '"& Evento &"'"

 Set ObjRSCont = Server.CreateObject("ADODB.Recordset")

 

 ObjRSCont.Open StrSql,ObjConn

 

 if ObjRSCont.EOF = True then

 StrSql = "Insert into Acessos(" & Chr(34) & "Qtd_Acessos" & Chr(34) & ", " & Chr(34) & "Local" & Chr(34) & ") Values("& 1 & "," & Chr(34) & Evento & Chr(34) &"')"

 else

 Qtd_Acessos = ObjRSCont("QTD_acessos") + 1

 StrSql = "Update acessos set Qtd_acessos=" & Qtd_Acessos & " where local=" & Evento

 end if

 

 ObjRSCont StrSql, ObjConn

 

 ObjRSCont.Close

 Set ObjRSCont = Nothing

 

 Response.Cookies("AcessoIT")(Evento) = "Gravado"

	end if

mas ai nesta parte:

* StrSql = "Select * from acessos where local= '"& Evento &"'"*

 Set ObjRSCont = Server.CreateObject("ADODB.Recordset")

 

 ObjRSCont.Open StrSql,ObjConn

Acontece um erro

error '80004005'

Unspecified error

/contAcesso.asp, line 21

alguém sabe por que desse erro???

Pra chamar o página eu uso "contAcesso.asp?evento=Valor"