Dim ds As New DataSet()

ds.ReadXml("C:\test.xml")

'DataGridView1.DataSource = ds.Tables("contents") 

Dim row As DataRow = ds.Tables("contents").Select("no='1'").First()

If row IsNot Nothing Then

    Dim q As String = CStr(row("q"))

    Dim a As String = CStr(row("anser"))

    MsgBox(q & vbNewLine & a)

End If