La tabella è un database di film
contiene 5 campi titolo - genere - anno - tipo suono - N° dvd

mentr in VB ho 5 textbox 1 dat1 7 bottoni i quali fanno

aggiuni - trova - aggiorna - salva - elimina - esci - modifica.

questo è il codice in DATA1

Private Sub Data1_Validate(Action As Integer, Save As Integer)
Dim Risposta As Integer
If Save = True Then
'E' stato modificato un contatto.
Risposta = MsgBox("Salvare le modifiche apportate?", vbQuestion + vbYesNo, Me.Caption)
If Risposta = vbNo Then
'Se si seleziona no, annulla le modifiche.
'Per questo, la proprietà DataChanged delle TextBox viene impostata su False.
Text1.DataChanged = False
Text2.DataChanged = False
Text3.DataChanged = False
Text4.DataChanged = False
Text5.DataChanged = False

End If
End If
'Nasconde il pulsante "Salva".
Command6.Visible = False
Command2.Caption = "Aggiungi" 'IStrUZIONE AGGIUNTA.
Command3.Caption = "Modifica"
End Sub