Caros desculpe, vi no histórico da conversa de voces acredito q item postada em Postada em 09/06/2008 15:19 hs está correto, verifique apenas a definição dos campos tente passar
RS.Open "insert into TblHistorico(Assunto,Anexo,Mensagem,Data_Envio) Values (""" & txt_assunto.text & """,""" & txt_anexo.Text & """,""" & txt_mensagem.text & """,""" & txt_dataenvio.Text & """)", BD, 3, 3 :
é bem provavel que dê certo, caso ocorra o mesmo erro Run time error '424':Object required verifique o nomes dos campos que está passando para o SQL.
Abraços