访问access数据库时候的问题（多帮忙）
代码如下：
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\汇票.mdb;Persist Security Info=False;Jet OLEDB:Database Password=citic"
conn.Open
Dim rs As New Recordset
Dim sql As String
Dim endDate, unRevDate As Date '到期日期和回收日期
Dim AccessDBPath, AccessTable As String
AccessTable = "BList"
endDate = Date
sql = "select * from " + AccessTable + " where endDate=" + CStr(endDate)
rs.Open sql, conn, adOpenDynamic, adLockBatchOptimistic
执行到上面最后以行代码的时候提示被机器上的用户admin以独占方式锁定数据表，请问如何解决，多谢！！！！
问题点数：0、回复次数：2Top
1 楼wfnuser（夏雪）回复于 2003-09-04 20:00:17 得分 0
将
rs.Open sql, conn, adOpenDynamic, adLockBatchOptimistic
改为：
rs.Open sql, conn
或者：
set rs=conn.execute(sql)
Top
2 楼suntt（两条腿的狗）回复于 2003-09-05 08:39:03 得分 0
CursorType 可选，CursorTypeEnum 值，确定提供者打开 Recordset 时应该使用的游标类型。可为下列常量之一（参阅 CursorType 属性可获得这些设置的定义）。
常量 说明
AdOpenForwardOnly （默认值）打开仅向前类型游标。
AdOpenKeyset 打开键集类型游标。
AdOpenDynamic 打开动态类型游标。
AdOpenStatic 打开静态类型游标。
LockType 可选。确定提供者打开 Recordset 时应该使用的锁定（并发）类型的 LockTypeEnum 值，可为下列常量之一（参见 LockType 属性可获得详细信息）。
常量 说明
AdLockReadOnly （默认值）只读 — 不能改变数据。
AdLockPessimistic 保守式锁定（逐个） — 提供者完成确保成功编辑记录所需的工作，通常通过在编辑时立即锁定数据源的记录。
AdLockOptimistic 开放式锁定（逐个） — 提供者使用开放式锁定，只在调用Update 方法时才锁定记录。
AdLockBatchOptimistic 开放式批更新—用于批更新模式（与立即更新模式相对）。
Top
