VB.NET暦は浅いです

XMLファイルを作成しVB側で読込をしようと思っています。
考えている動作としては、[contents no="1"]を探して次に[contents no="1"]の
<q>と<anser>を取得したいです。

Public Sub SettingFile()

        Try

            Using xreder As XmlReader = _

                XmlReader.Create(_filepath)

                While xreder.Read

                    If xreder.ReadToFollowing("q") Then

                        questions = xreder.ReadElementString

                        anser = xreder.ReadElementString

                    End If

                End While

                'TODO リーダーを閉じる 

                xreder.Close()

            End Using

        Catch ex As Exception

            MessageBox.Show(ex.Message.ToString())

        End Try

    End Sub

手探りでこのようなコードを書きましたが、考えている動作が実行されません。
ReadToFollowingは[指定された修飾名の要素が見つかるまで読み込みます。]
との事なので、<q>要素を指定した所戻ってきた値はNothingでした。

<?xml version="1.0" encoding="Shift_JIS"?>

<question>

	<contents no="1">

		<q>Aさんの好きな食べ物は？</q>

		<anser>チョコ</anser>

	</contents>

	<contents no="2">

		<q>Bさんの好きなスポーツは？</q>

		<anser>野球</anser>

	</contents>

</question>

ヒント又は参考URLがあったら教えて下さい。
宜しく御願いします。