VB的异常捕捉和处理？？？

Question

类似下面的代码在VB中能实现吗？ 怎么实现？
try
  try
    数据库连接过程
  except
    on e:exception do
     exception.create('数据库连接错误！')
  end  try
    数据库操作操作
  except
    on e: exception do
      exception.create('数据库操作错误！')
  endexcept
  on e: exception do
  showmessage(e.message)   //在这里，不管上面的哪个过程出现异常，我都可以正确的知道
end                        //出现异常是，只会出现'数据库连接错误！'和'数据库操作错误！'
                           //我就能知道是哪个部分出错，依此类推

Answer 1

on err goto errerr:

Answer 2

on error goto err_handle
   errmsg="数据库连接错误！"
   {数据库连接过程}
   errmsg="数据库操作错误！"
   {数据库操作操作}
   errmsg=""
   jmp xxxxx 
err_handle:
  {判断 errmsg}   '在这里，不管上面的哪个过程出现异常，你都可以正确的知道
                  '出现异常是，只会出现'数据库连接错误！'和'数据库操作错误！'
                  '你就能知道是哪个部分出错，依此类推

Answer 3

vb6以前没有包含异常捕捉和处理
对这类问题只能用
on error goto label 处理，
要使用异常捕捉和处理最好用vb.net,它包含了C++的异常捕捉和处理（可找相关方面的书看看）
try
 except
  catch

Answer 4

on error resume next  数据库连接过程
if err.number then 
  错误处理过程
  err.clear
endif
数据库操作操作
if err.number then 
  错误处理过程
  err.clear
endif
....

Answer 5

'错误处理函数，放到模块中
Public Sub ErrView(ErrS As String)
    MsgBox "应用程序产生错误！" & vbCrLf & "错误描述为：" & ErrS & "！", vbExclamation, "资源管理!"
End Sub'操作
Private Sub Main()
On Error GoTo Errhandle
    '操作    Exit Sub
Errhandle:
    ErrView Err.Description
End Sub

Answer 6

呵呵，On error goto err1err1:
    debug.print err.description