在线结分,该怎么处理

在线结分
Set   rs   =   conn.Execute( "Select   Max(zdno)   From   zdls ")
If   rs.Fields(0)   =   0   Then
      k   =   1
Else
      k   =   rs.Fields(1)   +   1
End   If
rs.Update
'货品号

Text1.Text   =   Format(Date,   "yyyyMMdd ")   &   Format(Time,   "hhmmss ")   &   Format(Weekday(Now),   "dd ")   &   Format(k,   "0000 ")


如果数据库中没有数据那就从1开始``如果有数据就在原来的基础上加1``
看一下这个代码哪里出错了`


[解决办法]
Set rs = conn.Execute( "Select isnull(Max(zdno),0) From zdls ") 'sql2000
If rs.Fields(0) = 0 Then
k = 1
Else
k = rs.Fields(0) + 1
End If

主要是数据没有的时候，取出来的是null