Try
Dim FNamePerson As String = String.Empty
Dim LNamePerson As String = String.Empty
Dim FaNamePerson As String = String.Empty
Dim TellPerson As String = String.Empty
Dim AddressPerson As String = String.Empty

For Each SelectedRow As DataGridViewRow In Me.GridViewPersons.SelectedRows
FNamePerson = SelectedRow.Cells(1).Value
LNamePerson = SelectedRow.Cells(2).Value
FaNamePerson = SelectedRow.Cells(3).Value
TellPerson = SelectedRow.Cells(5).Value
AddressPerson = SelectedRow.Cells(6).Value
Next

FNameP.Text = FNamePerson
LNameP.Text = LNamePerson
FaNameP.Text = FaNamePerson
TellP.Text = TellPerson
AddressP.Text = AddressPerson

Catch ex As SqlClient.SqlException
MessageBox.Show(ex.Message.ToString)
End Try