【VB】主キーフィールドを使ってレコード検索(型指定されたデータセット）

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

'検索
dim dr as OederDtaset.gooodsRow
dr = OrderDtaSet.Goods.FindByGooodsID(key)

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