要在那裡加才行(編號：3312)

請問此段程式中要加入msgbox要加在那裡呢
While Not (Data2.Recordset("商品編號") = Text2.Text) Or　Data2.Recordset.EOF
Data2.Recordset.MoveNext
Wend