fazer update ou insert

Pessoal, estou tentando fazer o seguinte:

Comparar se há algo na tabela com a data de hj, se tiver ele faz o update senão e insere, porém só está inserindo.

Alguém sabe o que pode ser???

Parte do código está abaixo:

VLW, pela força!!!

Esousa

data_evento = Year(date)&"-"&Month(date)&"-"&Day(date)sql = "select ID, date_format(data,'%Y-%m-%d') as datas from quadro where data = '"& data_evento &"' " rec.Open sqldat_db = rec("datas")rec.Closeset rec=nothingif " & dat_db & " = " & data_evento & " thensql="update quadro set p1='" & Session("qtde_evento_p1") & "', p2 = '" & Session("qtde_evento_p2") & "', CA= '" & Session("qtde_CA") & "',FO='" & Session("qtde_FO") & "',PA='" & Session("qtde_PA") & "', Login= '" & Session("qtde_eventos") & "', Acertos='" & Session("qtde_evento") & "' where data = '" & dat_db & "' " elsesql="insert into quadro(data,P1,P2,Login,CA,FO,PA,Acertos) values ( '" & data_evento & "', '" & Session("qtde_evento_p1") & "', '" & Session("qtde_evento_p2") & "', '" & Session("qtde_eventos") & "', '" & Session("qtde_CA") & "', '" & Session("qtde_FO") & "', '" & Session("qtde_PA") & "', '" & Session("qtde_evento") & "')"end ifcon.Execute sql