VB.NET Search + Not Change Column

select id as 'Nomor Dokumen', nm_dok as Dokumen from tbl_data where concat(" & SelectR & ") like '%" & txt_search.Text & "%'