sample query in vb.net