Buona sera a tutti e grazie innanzitutto per l'attenzione, avrei bisogno di una mano per il programma di gestione dati che sto cercando piano piano di realizzare. Allora vi spiego brevemente il programma con relativo problema: in poche parole il programma richiede dei dati (Nome, cognome, data di nascita, etc..) e li salva nel database, e fino a qui tutto ok; A questo punto facendo "APRI" il programma apre un nuovo form con una tabella dove mette i vari nomi e cognomi salvati nel db. Ora vorrei che premendo o sul nome o sul cognome mi vengano importati tutti i dati presenti sul db ,relativi a quella persona, nella pagina principale dove si fa l'inserimento. Il problema è ho unasto gli array ma non so come farmeli riportare tutti insieme, cioè o mi riporta solo il nome o il cognome a seconda di quale premo. Vi posto il codice e vi linko il programma per intero. Spero di essermi spiegato (anche se ho i miei dubbi ) e grazie a tutti belli e brutti!!

codice:
Imports MySql.Data.MySqlClient
Public Class Apri


    Dim array(3) As String







    Private Sub Apri_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown


        Dim serverstring As String = "Server=localhost;User=root;Password=;"
        Dim sqlconnection As MySqlConnection = New MySqlConnection
        sqlconnection.ConnectionString = serverstring


        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        Try
            If sqlconnection.State = ConnectionState.Closed Then
                sqlconnection.Open()


            Else
                sqlconnection.Close()




            End If
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try


        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        Dim cmdusa As MySqlCommand = New MySqlCommand
        Dim usa As String = "use Programma"


        With cmdusa
            .CommandText = usa
            .CommandType = CommandType.Text
            .Connection = sqlconnection
            .ExecuteNonQuery()
        End With
        sqlconnection.Close()
        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''






        Dim a As Integer = 0




        Dim cmd As MySqlCommand = New MySqlCommand




        sqlconnection.Open()








        cmd.CommandText = "SELECT id,Nome, Cognome FROM vesalici_diego"
        cmd.CommandType = CommandType.Text
        cmd.Connection = sqlconnection
        cmd.ExecuteNonQuery()


        Dim Dr As MySqlDataReader = cmd.ExecuteReader




        While (Dr.Read())


            Dim id, nome, cognome As New Label
            a = a + 20
            id.Location = New Point(10, a)
            id.AutoSize = True
            id.BorderStyle = BorderStyle.Fixed3D
            nome.Location = New Point(40, a)
            nome.AutoSize = True
            cognome.Location = New Point(120, a)
            cognome.AutoSize = True
            Me.Controls.Add(id)
            Me.Controls.Add(nome)
            Me.Controls.Add(cognome)






            array(0) = Dr(0)
            array(1) = Dr(1)
            array(2) = Dr(2)







            AddHandler nome.Click, AddressOf nomeclic_Click
            AddHandler cognome.Click, AddressOf nomeclic_Click
        End While


    End Sub


    Private Sub nomeclic_Click(ByVal array As System.Object, ByVal e As System.EventArgs)







        TextBox1.Text = array

    End Sub
End Class

Programma:
https://mega.co.nz/#F!XQsg3ZgA!isidCckCazNQTTIRja8fhA