Dim myrow() As DataRow = Nazioni.Select("Nazione LIKE '" & nazione.Replace("'", "''") & "%'")
        If myrow.Length <> 0 Then
            Me.TextBox6.Text = CType(myrow(0)("Nazione"), String)
            Me.TextBox6.SelectionStart = nazione.Length
            Me.TextBox6.SelectionLength = Me.TextBox6.TextLength - nazione.Length
        End If