Problemas no INSERT INTO

MINHA PROGRAMAÇÃO PARA O CADASTRO DE UMA AGENDA ESTÁ DANDO ERROS, SEGUE O CÓDIGO:

>
Dim conexaodb

pag = request("pag")

action = request("action")

%>

<%

IF action = "" Then

	SQL = "SELECT * FROM tbagenda ORDER BY id DESC"

	Call abreconexao

	Set RS = conexaodb.execute(SQL)

ELSEIF action = "adicionar" then

vdata = request("txtdata")

vcidade = request("txtcidade")

vlocal = request("txtlocal")

vdata = replace(vdata,"'",""")

vcidade = replace(vcidade,"'",""")

vlocal = replace(vlocal,"'",""")

	SQL = "INSERT INTO tbagenda (data, cidade, local) VALUES (" & vdata & ", '" &vcidade & "', '" & vlocal & "');"

	Call abreconexao

	conexaodb.execute(SQL)

	%>

	<script>alert('CADASTRADO com sucesso!');location.href='principal.asp?ir=pg_agenda.asp&pag=2';</script>

ALGUÉM ME AJUDA POR FAVOOOR???