If toNumeric(Db.execRsData(sql, DB_CMDTYPE_TEXT, arrParams, Nothing))<>10 and
toNumeric(Db.execRsData(sql, DB_CMDTYPE_TEXT, arrParams, Nothing))<> 6 Then
위 문법과 같습니다만.. 아래처럼 처리 하시면 됩니다.

Dim intLvl
intLvl = toNumeric(Db.execRsData(sql, DB_CMDTYPE_TEXT, arrParams, Nothing))

If  intLvl <> 6 And  intLvl <> 10 Then
.... 쿠폰 발급...
End If

                                                                     ...[Mr.NET!]