Newbie VB Help much appreciated

[mmcgrath]

I am preforming a data integrity check by using a select count. i noticed that the developer was only passing 1 expression if Val(sRows) >1 but he forgot to check for zero record. I tried to change the code in the two variations below and syntax checks correctly but I do not get my error message. Can anyone assist me. please



'Step 2 - Data Integrity Check
sSql = "select count(*) from F5542EP where NRLOTN = '" & Rsp & "' " & _
" and NRYN01 = 'Y' and NRNREEPROM <> ''"
DB.Execute(sSql, sCols, sRows)

If Val(sRows) > 1 Then ' if val(srows) = 0 then
App.CallForm("FADERROR" & " -SNR=ESNR1", True)
Exit Sub
End If

Variations
If Val(sRows) > 1 Or Val(sRows) = 0 Then ' if val(srows) = 0 then
App.CallForm("FADERROR" & " -SNR=ESNR1", True)
Exit Sub
End If

If Val(sRows) <> 1 Then ' if val(srows) = 0 then
App.CallForm("FADERROR" & " -SNR=ESNR1", True)
Exit Sub
End If

[2kaud]

[You will probably receive more help re VB6 if you post to this site's sister site https://www.vbforums.com/forumdispla...-6-and-Earlier ]