在Microsoft.Jet.OLEDB.4.0使用ADO Updata命令的问题

Question

我引用的是Microsoft ActiveX Data Object 2.8 Library 在Microsoft.Jet.OLEDB.4.0使用ADO Updata命令无效,不能更改相应的记录.
程序如下:  Dim cn As ADODB.Connection
  Dim rst As ADODB.Recordset
  ''
  Set cn = New ADODB.Connection
  cn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" _
        & App.Path & "\directory.mdb;"
  Set rst = New ADODB.Recordset
  rst.Open "pipeline", cn, , , adCmdTable
--------
运行以下二句,出错??
  'rst.CursorType = adOpenKeyset
  'rst.LockType = adLockOptimistic
这两句是要还是不要
----
  rst.MoveFirst
  
  Dim Str_Handle(0 To 6) As String
  
  
  Dim point1(0 To 2) As Double, point2(0 To 2) As Double, point3() As Double
  Dim ii As Integer
  ii = 0
  Do Until rst.EOF
    point1(0) = rst!PointX: point1(1) = rst!PointY: point1(2) = rst!PointZ
    rst.MoveNext
    If rst.EOF Then
       Exit Do
    Else
      point2(0) = rst!PointX: point2(1) = rst!PointY: point2(2) = rst!PointZ
    End If
    Set Ent = obj_ModelSpace.addline(point1, point2)
---
我的关键语句,出错,如何解决?
    'rst!EntityHandleID = Trim(Ent.Handle)
---
  Loop
---
不能运行??
  'rst.Update
---
谢谢各位大侠

Answer 1

在网上找了半天,这条语句能够达到目标.
上面的rst.Open "pipeline", cn, , , adCmdTable
改为
rst.Open "pipeline", cn, adOpenKeyset, adLockPessimistic
通过,达到目标,
请问各位大侠,能否给解释一下,或提供一网站,让本从慢慢去体会一下.