Click事件的前面加上:
If Tables("订单").Current.IsNull("产品编码") = False And Tables("订单").Current.IsNull("产品名称") Then
'你的代码
Else
messagebox.show("提示")
End If