insertar en 2 tablas al mismo tiempo

[analoyra]

Hola otra vez!!
Necesito insertar datos en 2 tablas diferentes. aca posteo lo que hice
Rs.Open "Select max(idauditoria) from AudiTipoComp", cn, adOpenDynamic, adLockOptimistic
num = CStr(Rs(0) + 1)
pc = PCName
fecha = CStr(Date)
hora = CStr(Time)
Rs.Close

SQL = "UPDATE comprobante SET comp_clave = '" & txtClave.Text & "', comp_desc = '" & TxtDesc.Text & "', comp_sigla = '" & TxtSigla.Text & "', comp_signo = '" & Txtsigno.Text & "' WHERE comp_clave = '" & txtClave.Text & "'"
rsAux.Open "insert into AudiTipoComp (idauditoria,fechaa,horaa, ApeyNom,accion,terminal,comp_clave, comp_desc, comp_sigla,comp_signo ) values ('" + num + "', '" + fecha + "','" + hora + "','" + Usuario + "','Modificacion','" + pc + "','" & txtClave.Text & "','" + tipo + "','" + sigla + "','" + signo + "') ", cn, adOpenDynamic, adLockOptimistic

cn.Execute (SQL)
rsAux.Close
MsgBox "Los Datos Fueron Actualizados"
Rs.Open "Select max(idauditoria) from AudiTipoComp", cn, adOpenDynamic, adLockOptimistic
num2 = CStr(Rs(0) + 1)
' pc = PCName
' fecha = CStr(Date)
hora = CStr(Time)
rsAux2.Open "insert into AudiTipoComp (idauditoria,fechaa,horaa, ApeyNom,accion,terminal,comp_clave, comp_desc, comp_sigla,comp_signo ) values ('" + num2 + "', '" + fecha + "','" + hora + "','" + Usuario + "','Modificacion','" + pc + "','" & txtClave.Text & "','" + TxtDesc.Text + "','" + TxtSigla.Text + "','" + Txtsigno.Text + "') ", cn, adOpenDynamic, adLockOptimistic
Call limpiarcontroles
rsAux2.Close
Rs.Close

pero el problema es que me dice que duplica los datos, si le sigo el camino en realidad me suma el id
trabajo con access
Hay alguna manera de solucionarlo?
Gracias de antemano