一个关于数据库连接的问题（实在是走头无路了）

大家好，我有一个数据库连接的问题，帖子发了好久，至今没有人解决，实在是着急坏了。当我编译以下代码，  
   
  系统提示为：时实错误91，对象变量或with块变量未设置。  
  我用的是VB6和ACCESS   97  
   
  我的代码如下：  
   
  '修改数据库记录  
  Private   Sub   Modification(ByVal   itemno   As   String)  
  Dim   conn   As   ADODB.Connection   '定义ADO链接conn  
  Dim   rs   As   ADODB.Recordset   '定义ADO记录集rs  
  Dim   strin   As   String  
  Dim   DatabasePath   As   String  
   
  DatabasePath   =   "d:\shcandle\shcandle.mdb"  
   
   
  If   CheckInput   =   True   Then   '检查输入是否合乎要求  
   
  Set   conn   =   New   ADODB.Connection   '初始化conn，否则会出错  
   
  conn.Open   "Provider=Microsoft.Jet.OLEDB.4.0;Data   Source="   &   DatabasePath   &   ";Persist   Security   Info=False"  
   
  strin   =   "select   *   from   candle   where   ItemNo   =   '"   &   itemno   &   "'"  
   
  rs.Open   strin,   conn,   adOpenKeyset,   adLockOptimistic  
   
   
  rs("Description")   =   Text_Description.Text  
  .....  
  .....  
  ....  
  rs("PicLink")   =   Text_PicLink.Text  
  rs.Update  
   
  rs.Close  
  conn.Close  
  Unload   Me  
  MsgBox   "该记录已经成功写入数据库"  
  End   If  
   
  End   Sub  
   
   
  这个问题一直没有解决！请大家指教！！会不会要加有关数据库连接的控件啊？  
   
   
   
  问题点数：30、回复次数：7Top

1 楼ljc_zy（彷徨）回复于 2004-09-01 06:56:21 得分 5

这句   Dim   rs   As   ADODB.Recordset   '定义ADO记录集rs  
  改为Dim   rs   As   new   ADODB.Recordset  
  或在  
  rs.Open   strin,   conn,   adOpenKeyset,   adLockOptimistic   前加上  
  set   rs=new   adodb.recordset  
  Top

2 楼of123（）回复于 2004-09-01 08:50:30 得分 5

Set   rs   =   New   ADODB.Recordset  
  rs.Open   strin,   conn,   adOpenKeyset,   adLockOptimisticTop

3 楼of123（）回复于 2004-09-01 08:52:55 得分 5

尽可能不用   Dim   rs   As   new   ADODB.Recordset，因为此声明会使编译代码后，每一语句后都插入一个系统语句，直至   rs   被真正实例化。这样将降低代码的效率。Top

4 楼sunmoonrock（日月尧小子）回复于 2004-09-01 10:00:13 得分 3

http://community.csdn.net/Expert/topic/3324/3324397.xml?temp=.1567346  
  Top

5 楼starsoulxp（星魂）回复于 2004-09-01 10:56:05 得分 5

Dim   rs   As   ADODB.Recordset   '定义ADO记录集rs  
   
  后面加上  
  set   rs=new   adodb.recordsetTop

6 楼taosin（）回复于 2004-09-01 13:40:54 得分 5

Dim   rs   As   ADODB.Recordset   改为  
  dim   rs   as   new   adodb.recordset　或  
  set   rs=new   adodb.recorsetTop

7 楼superxiaomm（小美）回复于 2004-09-01 17:16:22 得分 2

是set   rs＝new   adodb.recordset没写  
  你是编译错误把  
  Top

相关问题

• 数据库
• 代码
• 连接
• ado
• rs
• recordset
• strin
• adopenkeyset
• itemno
• adodb

• 帖主：alanchang
• ljc_zy
• of123
• of123
• sunmoonrock
• starsoulxp
• taosin
• superxiaomm

• Visual Basic类图书
• Visual Basic类源码下载