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 *