Bind Grid in VB.Net

Public Sub BindGrid()
        Dim query As String = "Select * from Table_name"
        Using con As New SqlConnection("Your Connection String")
            Dim da As New SqlDataAdapter(query, con)
            Dim ds As New DataSet
            con.Open()
            da.Fill(ds)
            con.Close()
            gvStudent.DataSource = ds
            gvStudent.DataBind()

        End Using
End Sub