Bueno, hazte una Sub que lea dicho registro, y lo copie...utiliza por supuesto algun otro identificador para que no sea un registro idéntico, puede ser que quieras ocupar un campo ID autonumérico por ejemplo, y si quieres una referencia, necesitarás utilizar otra tabla para guardar ese ID y casarlo con otro.
Asumiendo que tenemos una conexión activa a la DB:
Código:
Sub CopiaRegistro(tabla, id)
Dim qry
qry = "INSERT INTO "&tabla&" VALUES(SELECT todos_los_campos_menos_el_autonumerico FROM " & tabla & " WHERE campo_id = " & id & ")"
ObjConn.Execute(qry)
End Sub
Call CopiaRegistro("tbl_clientes", 5)
Algo asi, tu depúrala
Salu2,