insertar de varios lados

[analoyra]

estoy intentando con algo asi

Rs.Open "Select max(idauditoria) from auditoria", cn, adOpenDynamic, adLockOptimistic
num = CStr(Rs(0))
aux = CInt(Val(num) + 1)
fecha = Date
rsAux.Open "insert into puntovta (idauditoria,fechaa, ApeyNom, idRegistro,accion,terminal,tabla ) values (aux, fecha, usuario,'" + Text2.Text + "','Alta',PCName,'Sucursales') ", cn, adOpenDynamic, adLockOptimistic
usuario ya me queda de cuando ingresa y el text lo aprovecho del otro recordset, lo que no se como ponerlos despues de values sobre todo los auxiliares como aux, fecha, el usuario

gracias de antemano