【VB】主キーフィールドを使ってレコード検索(標準のデータセット）

検索する値
dim key as string
key = inputbox("[GoodsID]"を入力","検索")

'検索
dim dr as DataRow
dr = DtaSet.Tables.("goods").Rows.Find(key)

'確認
if dr Is Notheng then
messagebox.show("該当するレコードがありません")
Else
messagebox.show(dr.GoodsID & ControlChars.CrLf & dr.goodsName & ControlChars.CrLf & dr.Price)
end if