[Resolvido]Problema no Codigo

Muito boa tarde pessoal, estou desenvolvendo um projeto, só que ta dando alguns erros no codigo, acho que me perdi. Bom vamos la, na hora que eu confirmo o cadastro ele da um erro que vou grifar abaixo em VERMELHO, e ele faz somente 1 registro, quando eu vou fazer outro registro ele substitui o registro existente. Já procurei por diversas partes do forum, más tudo é mais do que avançado para o simples projeto que to fazendo rs. Gostaria que me ajudase e depois vou me virando! att



Código:
Option Compare Database

Private Sub Comando16_Click()

If MsgBox("Cadastro Confirmado", vbYesNo + vbQuestion, "aviso") = vbYes Then

Set db1 = CurrentDb



Set rs1 = db1.OpenRecordset("tab2", dbOpenTable)

With rs1
' os campos abaixo do formulário tem que ser iguais aos que estão na tabela para realizar a exportação
.AddNew
' campos que estão na tabela = campos do fomulario
![Login] = Me.Login
![Senha] = Me.Senha
![Unidade] = Me.Unidade
![RG] = Me.RG
![Telefone] = Me.Telefone


'campos que estão no subformulário, caso voce tenha subformulário é só mudar os nomes dos campos.
![Idevento] = Forms![cadastrar eventos]![subevento Subformulário]!Idevento
![DataEvento] = Forms![cadastrar eventos]![subevento Subformulário]!DataEvento
![HoraInicio] = Forms![cadastrar eventos]![subevento Subformulário]!HoraInicio
![LocalEvento] = Forms![cadastrar eventos]![subevento Subformulário]!LocalEvento
![Observacao] = Forms![cadastrar eventos]![subevento Subformulário]!Observacao


.Update

End With

End If
End Sub

Sala apropriada.

Boas Felipe... Seja bem vindo ao Fórum!

Porque não utiliza o CurrentDb.Execute com uma instrução insert into?

Creio que será mais prático.


Cumprimentos.

Veja um exemplo da mesma:


CurrentDb.Execute "INSERT INTO SuaTabela(SeuCampo1, SeuCampo2)" _
& " Values(""" & Format(SeuCampoData, "dd/mm/yyyy") & """,""" & Me.SeuCampo & """);"


Coloquei ai um exemplo para um campo Data, para os demais: """ & Me.SeuCampo & """


Cumprimentos.