Io l'avrei fatta un po diversa:
codice:Public Function ControllaCampi() as boolean If Insert.txtNome.Text = "" Then MsgBox ("Attenzione! Nome è un campo obbligatorio.") Insert.txtNome.SetFocus ControllaCampi=False Exit Sub End If ... ControllaCampi=true end sub e sul tasto INVIA .... if not ControllaCampi() then Exit Sub End If![]()