Private Sub Command13_Click()
Data1.Refresh
Data1.Recordset.AddNew
Text6.SetFocus ' Text6 è il TabIndex 0
End Sub