como puedo guardar un registro en varias tablas

[Taribo007]

Un ejemplo:

Public cn As ADODB.Connection
Public rs As ADODB.Recordset
Public rs2 As ADODB.Recordset

Private Sub Command1_Click()
If EstablecerConexion() = True Then
If GenerarRecordset("Select Campo1 from Tabla1", rs) = True Then
rs.AddNew
rs!campo1 = Me.Text1.Text
rs.Update
End If
If GenerarRecordset("Select Campo1 from Tabla2", rs) = True Then
rs.AddNew
rs!campo1 = Me.Text1.Text
rs.Update
End If
Else
MsgBox "Error en la conexion"
End If

End Sub

Public Function EstablecerConexion() As Boolean
' La conexión a la base de datos

Set cn = New ADODB.Connection

' Para la cadena de selección
'Dim sSelect As String

' ' Para una base de datos normal:
' sSelect = "SELECT * FROM TablaEmpleados"

cn.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\prueba.mdb;Uid=Admin;Pwd=;"

EstablecerConexion = True
End Function
Public Function GenerarRecordset(sSQL As String, rst As ADODB.Recordset) As Boolean
' El recordset para acceder a los datos

Set rst = New ADODB.Recordset

' Abrir el recordset de forma estática, no vamos a cambiar datos
rst.Open sSQL, cn, adOpenDynamic, adLockOptimistic

' Permitir redimensionar las columnas
GenerarRecordset = True
End Function


Has de activar la refrencia a Microsoft ActivX dataobject x.x .....

Un saludo