Imports System.Data.SqlClient

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim connetionString As String

        Dim connection As SqlConnection

        Dim command As SqlCommand

        Dim adapter As New SqlDataAdapter

        Dim ds As New DataSet

        Dim dv As DataView

        Dim sql As String

		connetionString = "Data Source=ServerName;Initial Catalog=DatabaseName;User ID=UserName;Password=Password"

        sql = "Select  * from product"

        connection = New SqlConnection(connetionString)

        Try

            connection.Open()

            command = New SqlCommand(sql, connection)

            adapter.SelectCommand = command

            adapter.Fill(ds, "Copy to DataTable")

            adapter.Dispose()

            command.Dispose()

            connection.Close()



            dv = New DataView(ds.Tables(0), "Product_Price <= 200", "Product_ID", DataViewRowState.CurrentRows)

            Dim dTable As DataTable

            dTable = dv.ToTable



            DataGridView1.DataSource = dTable



        Catch ex As Exception

            MsgBox(ex.ToString)

        End Try

    End Sub

End Class