Ciao devo salvare dati scritti nelle varie textbox in 2 tabelle di access dello stesso database
io con questo codice riesco a salvare e recuperare dati in una tabella ma non so come salvare e recuperare in due tabelle

Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset

cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=paghe.mdb"

If cmbSeleziona.Text = "" Then ' ...ESEGUO LA INSERT
SQL = "INSERT INTO paghe " _
& "(nome, mese, anno, [ore lavorate], [ore festivita], [prezzo ora], [importo salario], [importo festivita], [malattia maternita],[prezzo premi]," _
& "[importo altre voci], [importo lordo], [irpaf], [contributi imps], [importo netto], [importo busta], [importo assegno], [saldo]," _
& "[importo pagato])VALUES " _
& "('" & Replace(NOME.Text, "'", "''") & "', " _
& "'" & Replace(MESE.Text, "'", "''") & "', " _
& "'" & Replace(ANNO.Text, "'", "''") & "', " _
& "'" & Replace(ORE_LAV.Text, "'", "''") & "', " _
& "'" & Replace(ORE_FES.Text, "'", "''") & "', " _
& "'" & Replace(PREZZO_ORA.Text, "'", "''") & "', " _
& "'" & Replace(IMP_SALARIO.Text, "'", "''") & "'," _
& "'" & Replace(IMP_FESTIVITA.Text, "'", "''") & "'," _
& "'" & Replace(MALATT_MATERN.Text, "'", "''") & "'," _
& "'" & Replace(PREZZO_PREMI.Text, "'", "''") & "'," _
& "'" & Replace(PREMI_E_ALTRE_VOCI.Text, "'", "''") & "'," _
& "'" & Replace(IMPORTO_LORDO.Text, "'", "''") & "'," _
& "'" & Replace(IRPAF.Text, "'", "''") & "'," _
& "'" & Replace(CONTRIB_IMPS.Text, "'", "''") & "'," _
& "'" & Replace(IMPORTO_NETTO.Text, "'", "''") & "'," _
& "'" & Replace(IMPORTO_BUSTA.Text, "'", "''") & "'," _
& "'" & Replace(IMPORTO_ASSEG.Text, "'", "''") & "'," _
& "'" & Replace(SALDO.Text, "'", "''") & "'," _
& "'" & Replace(IMPORTO_PAGATO.Text, "'", "''") & "')"
conferma = "Inserimento effettuato con successo"
Else ' ...ESEGUO L'UPDATE
SQL = "UPDATE paghe SET " _
& "[nome] = '" & Replace(NOME.Text, "'", "''") & "', " _
& "[mese] = '" & Replace(MESE.Text, "'", "''") & "', " _
& "[anno] = '" & Replace(ANNO.Text, "'", "''") & "', " _
& "[ore lavorate] = '" & Replace(ORE_LAV.Text, "'", "''") & "', " _
& "[ore festivita] = '" & Replace(ORE_FES.Text, "'", "''") & "', " _
& "[prezzo ora] = '" & Replace(PREZZO_ORA.Text, "'", "''") & "', " _
& "[importo salario] = '" & Replace(IMP_SALARIO.Text, "'", "''") & "' " _
& "[importo festivita] = '" & Replace(IMP_FESTIVITA.Text, "'", "''") & "' " _
& "[malattia maternita] = '" & Replace(MALATT_MATERN.Text, "'", "''") & "' " _
& "[prezzo premi] = '" & Replace(PREZZO_PREMI.Text, "'", "''") & "' " _
& "[importo altre voci] = '" & Replace(PREMI_E_ALTRE_VOCI.Text, "'", "''") & "' " _
& "[importo lordo] = '" & Replace(IMPORTO_LORDO.Text, "'", "''") & "' " _
& "[irpaf] = '" & Replace(IRPAF.Text, "'", "''") & "' " _
& "[contributi imps] = '" & Replace(CONTRIB_IMPS.Text, "'", "''") & "' " _
& "[importo netto] = '" & Replace(IMPORTO_NETTO.Text, "'", "''") & "' " _
& "[importo busta] = '" & Replace(IMPORTO_BUSTA.Text, "'", "''") & "' " _
& "[importo assegno] = '" & Replace(IMPORTO_ASSEG.Text, "'", "''") & "' " _
& "[saldo] = '" & Replace(SALDO.Text, "'", "''") & "' " _
& "[importo pagato] = '" & Replace(IMPORTO_PAGATO.Text, "'", "''") & "' " _
& "WHERE id = " & CInt(s(0))
conferma = "Modifica effettuata con successo"
End If

' ESEGUO IL COMANDO SQL CHE ARRIVA DELLA CONDIZIONE
cn.Execute (SQL)
lblMessaggio.Caption = conferma

cn.Close

' PULISCO E RICARICO LA COMBO BOX
cmbSeleziona.Clear
Call Form_Load
End If
End Sub