01.
Dim
intNumRows
As
Integer
02.
strSQL =
"SELECT COUNT(*) FROM customer WHERE CustomerID = '"
&
Me
.txtCustomerID.Text &
"' "
03.
objCmd =
New
SqlCommand(strSQL, objConn)
04.
intNumRows = objCmd.ExecuteScalar()
05.
06.
IF intNumRows > 0
Then
07.
08.
Else
09.
10.
End
IF