Dim sqlconn As New SqlClient.SqlConnection("Data Source=VIN_ONE\SQLEXPRESS;Initial Catalog=master;Integrated Security=True")

        sqlconn.Open()


        Dim query As String = "SELECT " & Me.TextBox1.Text.Trim & " FROM Table1"
 
        Dim ds As New DataSet

        Dim adapt As New SqlClient.SqlDataAdapter(query, sqlconn)

        adapt.Fill(ds)
        Me.DataGridView1.DataSource = ds.Tables(0)


        sqlconn.Close()
        adapt.Dispose()
        ds.Dispose()