Trim string only where = 1

So I pull out a value from a column in my db, so it looks something like this:
"[[`license_civ_driver`,1],[`license_civ_air`,1],[`license_civ_heroin`,0],[`license_civ_marijuana`,0],[`license_civ_gang`,0],[`license_civ_boat`,1],[`license_civ_oil`,0],[`license_civ_dive`,0],[`license_civ_truck`,1],[`license_civ_gun`,0],[`license_civ_rebel`,0],[`license_civ_coke`,0],[`license_civ_diamond`,0],[`license_civ_copper`,0],[`license_civ_iron`,0],[`license_civ_sand`,0],[`license_civ_salt`,0],[`license_civ_cement`,0],[`license_civ_home`,1]]"

I want to be able to show only where there is 1 for the licence not the 0. 
Anyone has an idea? 

below is my code so far.
Dim PlayerID As New MySqlParameter("@PlayerID", lblCurrentUserPlayerID.Text) Dim GetDataCMD As New MySqlCommand("SELECT * FROM players WHERE playerid=@PlayerID") GetDataCMD.Parameters.Add(P ...