can't filling text boxes from MySql query using vb.net

Hi guys,

A have a form with some text boxes that I need to fill from a MySql query, the problem is that only the first text box is filled and the rest remains empty, I hope you guys can help me please.

    Private Sub lstNombres_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lstNombres.SelectedIndexChanged
        Try
            Dim cRegistro As String = lstNombres.SelectedItem
            Dim cClave As String = Trim(Microsoft.VisualBasic.Right(cRegistro, 5))
            Dim nClave As Integer = CInt(cClave)
            Dim cQuery As String

            If Conn.State = ConnectionState.Closed Then
                Conn.Open()
            End If

            cQuery = "SELECT * FROM registros where registros.clave =  '" & nClave & "'"

            Command = New MySqlCommand(cQuery, Conn)
            Reader = Command.ExecuteReader()

            While Reader.Read()
                txtNumeroLan.Text = Reader.GetString("Lan")
                txtLanRecibido.Text = Reader.GetString("LanRecibido")
                txtNombre.Text = Reader.GetString("Nombre")
                txtPaterno.Text = Reader.GetString("Paterno")
                txtMaterno.Text = Reader.GetString("Materno")
                txtNumeroDocumento.Text = Reader.GetString("Numerodocumento")
                txtCiudadTramita.Text = Reader.GetString("Ciudadtramite")
                txtTelefonoCelular.Text = Reader.GetString("Telcelular")
                txtTelefonoOtro.Text = Reader.GetString("Telotro")
                txtObservaciones.Text = Reader.GetString("Observaciones")
            End While
        Catch ex As Exception
            Console.WriteLine(ex.Message)
        End Try
        Reader.Close()
        Reader.Dispose()
        Conn.Close()
        Conn.Dispose()
    End Sub