将真实IP转换成数字的有关问题

将真实IP转换成数字的问题!
下载了一个QQ纯真IP库
  Startip                 Endip                           Country
12.2.169.0         12.2.169.255             美国

我照这样把它转换成数字    
  sql   =   "select   *   from   Ipaddress "
Sip   =   rst( "StartIP ")
Userip_ary   =   Split(Sip, ". ")
tmp_userip   =   Userip_ary(0)*256*256*256+Userip_ary(1)*256*256+Userip_ary(2)*256+Userip_ary(3)    
rst( "Startip ")   =   tmp_userip     第   24   行
rst.update  

可是出现如下错误
错误类型：
ADODB.Recordset   (0x800A0CB3)
当前记录集不支持更新。这可能是提供程序的限制，也可能是选定锁定类型的限制。
/tjfy/ChangeIP.asp,   第   24   行


------解决方案--------------------
应该是打开数据库问题

参数 改为 1 3


------解决方案--------------------
楼主打开记录集了没有,没有打开记录集怎么更新,我没有看到有打开记录集的代码,建议先打开记录集再更新OK?
------解决方案--------------------
或者是rs.open sql,conn,A,B这的问题，修改一下