Dim cnt As IntegerDim cmd As New SQLCommandcmd.CommandText = "Select Count(*) From {订单} Where 产品 = 'PD01'"cnt = cmd.ExecuteNonQuery()If cnt >0 Then
MessageBox.show("存在PD01的订单")End If