vb中关于数据库（sql2000）如何锁定记录集？给300分

[eddie_nick]

当我打开一个记录集（其中只有一条），此时其他用户不能对这条记录进行修改或则删除操作。

[wzsswz]

Function RecordLocked(rst As Recordset)AsBoolean
Dim blnLock As Boolean
On Error GoToErrorHandler
blnLock＝rst.LockEdits '保存LockEdits属性的当前值
rst.LockEdits＝True '设置保守式锁定
rst.Edit '试着编辑记录，如果记录被锁定，则会产生错误3197
RecordLocked＝False
rst.CancelUpdate
rst.LockEdits＝blnLock '恢复LockEdits属性的值
EXit FUnction
ErrorHandler：
Select Case Err
　Case 3197：
Resume Next
Case Else
　RecordLocked＝True
Resume Next
　EXit Function
End Select
End Function


Private Sub Command1_Click()
Dim dbs As Database
Dim tb As Recordset
Dim bl As Boolean
Set dbs＝opendatabase("c:\dbdir\dbl.mdb",dbopenDynaset)
Set tb＝dbs.OpenRecordset("tablel",dbOpenTable)
bl＝RecordLocked(tb)
End Sub

[eddie_nick]

岌岌荆棘：
谢谢你回答我的问题，可是我想要的是ADO的方式。可有良策。