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