TableBindingSource.Filter = "品番 = '" & strText & "'"
TableBindingSource.Filter = $"品番 = '{strText}'"
Dim row As DataRow = データテーブル.Rows.Find(strText)
Dim row As データセット名.表名Row = データテーブル.FindBy品番(strText)