Dim tbl As New DataTable() tbl.Columns.Add("Furi") tbl.Rows.Add("ヤマダ ゴロウ") tbl.Rows.Add(StrConv("ヤマダ ゴロウ", vbWide)) Dim rows = tbl.Select("Furi Like 'やまだ%'")