Dim   cnDB   As   New   ADODB.Connection   
  Dim   rsDB   As   New   ADODB.Recordset   
  Dim   cmdDB   As   New   ADODB.Command   
    
  Dim   ConnString   As   String   
          ConnString   =   "Provider=OraOLEDB.Oracle.1;Password=pass;Persist   Security   Info=True;User   ID=user"   
          cnDB.ConnectionString   =   ConnString   
          cnDB.Open   
            
  Set   cmdDB.ActiveConnection   =   cnDB   
          cmdDB.CommandText   =   "SELECT   field   from   table"   
          rsDB.CursorLocation   =   adUseServer   
          rsDB.Open   cmdDB,   ,   adOpenStatic,   adLockBatchOptimistic   
            
          rsDB.AddNew   
          rsDB.Fields("field")   =   "dddd"   
          rsDB.Update   
          rsDB.Close   
          rsDB.Close   
    
  源代码运行没有问题,但是数据库没有添加纪录!!   
  为什么???   
  oracle运行正常!