CLASS for fillRadioButtonList in vb.net

CLASS   for  fillRadioButtonList
 Dim con As SqlConnection = New SqlConnection()
    Dim com As SqlCommand = New SqlCommand()
    Dim da As SqlDataAdapter = New SqlDataAdapter()
    Dim constr As String = "Data Source=SERVER NAME \SQLEXPRESS;Initial Catalog=DBNAME;Integrated Security=True"
               
  Public Sub fillRadioButtonList(ByVal query As String, ByVal objDDL As RadioButtonList, 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)

        objDDL.DataSource = ds.Tables(0)
        objDDL.DataTextField = colfield
        objDDL.DataValueField = valField
        objDDL.DataBind()
    End Sub