Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ds As DataSet = pdataset("SELECT * FROM test_view") ' test_view คือ view ที่สร้างขึ้นครับ
If ds.Tables("a").Rows.Count > 0 Then
Label5.Text = ds.Tables("a").Rows(0)("name")
Else
MessageBox.Show("No Data")
End If
End Sub