codice:
On Error GoTo errore
    Set db = OpenDatabase(App.Path & "\campionato.mdb")
    db.Execute "INSERT INTO CAMPIONATI (NOME_CAMPIONATO) " & _
               "VALUES ( '" & _
                F_nuovo_campionato.Text_nuovo & "' )", _
               dbFailOnError
    db.Close

    MsgBox "Campionato inserito correttamente", vbInformation

On Error GoTo 0

    DataEnvironment1.rsCAMPIONATI.Requery

    Set F_nuovo_campionato.List_nuovo.DataSource = _
                             DataEnvironment1.rsCAMPIONATI

    F_nuovo_campionato.List_nuovo.ReFill  'oppure ReFresh


****************
ladyBlu: devi usare i tag per il codice: [*code][*/code] senza *