请教！！为什么以下这个过程一执行就出错？

[brucewoo]

'前面已经定义并创建rec1

Sub getlocation()
On Error GoTo err
Select Case Form1.Combo1.ListIndex
Case 0
rec1.CursorLocation = adUseNone
Case 1
rec1.CursorLocation = adUseClient
Case 2
rec1.CursorLocation = adUseServer
End Select
err:
MsgBox Error$, , "Getlocation 出错！"
End Sub

提示出错，但出错信息为空.

[zsgzsgzsg]

CursorLocation：对于关闭的 Recordset该属性为读/写，而对打开的Recordset该属性为只读。

[wtcooler]

标号前应加上Exit Sub ^_^

[brucewoo]

呵呵~~~~刚才检查了以下发现：
1，忘记加EXit Sub
2,不承认 adUnspecified 常量.

谢谢大家的关照：）