On Error GoTo ToExit: 提示有语法错误，怎么办？

Question

Public Sub OpenOraDB()
On Error GoTo ToExit:                    --提示这儿有语法错误？ OraDB_Open = False
OraConstr = "Provider=MSDAORA.1;Data Source=TESTCASH;Password=CUSTFORTEST;User ID=CUST;Persist Security Info=True"
Set OraDB =  CreateObject("ADODB.Connection")
OraDB.ConnectionString = OraConstr
OraDB.CommandTimeout = 30
'OraDB.CursorLocation = adUseServer
OraDB.Open 

OraDB_Open = True Exit Sub

ToExit:
MsgBox "连接数据库服务器错误，您可以在网络正常后继续使用。",vbInformation , "错误信息"
OraDB_Open = False
End Sub

Answer 1

应该不是On Error GoTo ToExit:出错,不信你将捕捉错误的机制屏蔽掉再RUN一次,如果我没估错的话,同样的错误仍会出现.这样你应该可以找到真实的错误根源了.

Answer 2

On Error GoTo ToExit: '提示这儿有语法错误？

Answer 3

是这句错了:OraDB_Open = False
过程怎么能赋值呢？

Answer 4

应该是On Error GoTo ToExit: 这句话不要后面的冒号