visual basic y access

[Frehley]

Public cn As ADODB.Connection
Public rs As ADODB.Recordset
Public rs2 As ADODB.Recordset
Public rs3 As ADODB.Recordset
Public rs4 As ADODB.Recordset
Public strconn As String

Private Sub Form_Initialize()
strconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\database.mdb"
Set cn = New ADODB.Connection

cn.ConnectionString = strconn
cn.CursorLocation = adUseClient
cn.Open

Set rs = New ADODB.Recordset
rs.Open "TABLA1", cn, adOpenDynamic, adLockOptimistic

Set rs2 = New ADODB.Recordset
rs.Open "TABLA2", cn, adOpenDynamic, adLockOptimistic

Set rs3 = New ADODB.Recordset
rs.Open "TABLA3", cn, adOpenDynamic, adLockOptimistic

Set rs4 = New ADODB.Recordset
rs.Open "TABLA4", cn, adOpenDynamic, adLockOptimistic

End Sub

En el evento donde guarda los datos ponés:

On Error Resume Next
rs.addnew
rs!NombreColumna = Text1.Text
rs2.addnew
rs2!NombreColumna = Text2.Text
rs3.addnew
rs3!NombreColumna = Text3.Text
rs4.addnew
rs4!NombreColumna = Val(Text1.Text) + Val(text2.text) + Val(text3.text) 'Eso si querés que lo sume, si no concatená: NombreRecordset!NombreTabla4 = text1.text & ", " & text2.text & ", " & text3.text
rs.Update
rs2.Update
rs3.Update
rs4.Update

Creo que es así, tendrias que usar una sola tabla