Problema com insert no Access

Bom dia

Estou com um problema. Tenho uma página ASP e o insert está duplicando os dados no BD Access.

sSQL = "INSERT INTO tb_noticia (noticia, Postado_por, Data, Hora, status)" & " VALUES('" & R6 & "','" & R2 & "','" & R5 & "','" & R30 & "','Ativo')"

SQL = sSQL

'executa consulta no banco de dados conectado
Set rstCliente = Server.CreateObject("ADODB.Recordset")
rstCliente.Open SQL, conexao_pmr