all'interno del pulsante salva scrivo cosi:

codice:
Private Sub Command7_Click()
  Set mydata = OpenDatabase(App.Path + "\" + "realagenzia.mdb")
    Set myrecord = mydata.OpenRecordset("agenzia")
    With myrecord
        .AddNew
        !agenzia = Trim(txt1.Text)
        !indirizzo = Trim(txt2.Text)
        !prov = Trim(txt3.Text)
        !citta = Trim(txt4.Text)
        !cap = Trim(txt6.Text)
        !sito = Trim(txt7.Text)
        !mail = Trim(txt8.Text)
        !telefono = Trim(txt10.Text)
        !cellulare = Trim(txt11.Text)
        !fax = Trim(txt12.Text)
          .Update
    End With
text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text6.Enabled = False
Text7.Enabled = False
Text8.Enabled = False
Text10.Enabled = False
Text11.Enabled = False
Text12.Enabled = False
Command9.Enabled = True

End Sub
non uccidetemi se ho scritto una cavolata...

poi questo pezzo di codice che mi hai dato

codice:
Dim mydata As Database
Dim myrecord As Recordset
va nel form o sbaglio?

grazie tante