Set objRs=objCon.Execute("select sname from table1")Do Until objRs.EOF=True If IsNull(objRs("sname") Then Msgbox "Null" End If objRs.MoveNext Loop
rs.open "select sname from table1",conn,adOpenKeyset, adLockReadOnly Do while not rs.eof If IsNull(rs("sname") or rs("sname") Then Msgbox "Null" End If rs.MoveNext Loop
If IsNull(objRs("sname") Then
Msgbox "Null"
End If
objRs.MoveNext
Loop
Do while not rs.eof
If IsNull(rs("sname") or rs("sname") Then
Msgbox "Null"
End If
rs.MoveNext
Loop