FILL DROPDOWNLIST IN VB.NET

CLASS...
    Dim con As SqlConnection = New SqlConnection()
    Dim com As SqlCommand = New SqlCommand()
    Dim da As SqlDataAdapter = New SqlDataAdapter()
    Dim constr As String = "Data Source=SERVERNAEM\SQLEXPRESS;Initial Catalog=DBNAME;Integrated Security=True"
Public Sub FillDropdownListwithvalue(ByVal query As String, ByVal objDDL As DropDownList, ByVal colfield As String, ByVal valField As String)
        If con.State = ConnectionState.Closed Then
            con.ConnectionString = constr
            con.Open()
        End If
        Dim ds As DataSet = New DataSet()
        objDDL.Items.Clear()
        da = New SqlDataAdapter(query, con)
        da.Fill(ds)
        Dim Newtbl As DataTable = New DataTable()
        Dim NewRow As DataRow = ds.Tables(0).NewRow()
        NewRow(colfield) = "-Please Select-"
        Newtbl = ds.Tables(0)
        Newtbl.Rows.InsertAt(NewRow, 0)
        Newtbl.AcceptChanges()
        Newtbl = Newtbl.Copy()
        objDDL.DataSource = ds.Tables(0)
        objDDL.DataTextField = colfield
        objDDL.DataValueField = valField
        objDDL.DataBind()
    End Sub
PAGE....
    Dim c1 As clsConnection = New clsConnection()
   Public Sub filldropdown()
        Dim s As String = "select * from TBLNAME" 
        c1.FillDropdownListwithvalue(s, ddlEquipment, "equip_desc", "equip_id")
  
    End Sub