FILL GRIDVIEW IN VB.NET

    Dim con As SqlConnection = New SqlConnection()
    Dim com As SqlCommand = New SqlCommand()
    Dim da As SqlDataAdapter = New SqlDataAdapter()
    Dim constr As String = "Data Source=SERVERNAME\SQLEXPRESS;Initial Catalog=DBNAME;Integrated Security=True"
 
    Public Function selectds(ByVal str As String) As DataSet
        Dim ds As DataSet = New DataSet()
        If con.State = ConnectionState.Closed Then
            con.ConnectionString = constr
            con.Open()
        End If
        com.CommandText = str
        com.Connection = con
        da.SelectCommand = com
        da.Fill(ds)
        con.Close()
        Return ds
    End Function
//
    Public Sub fill()
        Dim s As String = "select * from TABLE"
        ds = c1.selectds(s)
        GridView1.DataSource = ds
        GridView1.DataBind()
        SecondGridBind()
    End Sub