急！！求助！！！在线等待

Question

Public db As New ADODB.Connection
Private strSource As String
db.Open strSource   
手工输入数据库的连接字符窜strSource，在打开数据库的时候，如何判断strSource是否正确，出现错误时，如何人为捕捉错误信息，而不出现系统错误

Answer 1

Public db As New ADODB.Connection
Private strSource As String
on error goto err:db.Open strSource  exit suberr:
  msgbox "连接错误"

Answer 2

on error goto err:
.
你的代码
.
err：
   msgbox"在这里写出错类型"

Answer 3

Private Sub Command1_Click()
' 设置“CancelError”为 True
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
' 设置标志
CommonDialog1.Flags = cdlOFNHideReadOnly
' 设置过滤器
CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" & _
"(*.txt)|*.txt|Batch Files (*.bat)|*.bat"
' 指定缺省的过滤器
CommonDialog1.FilterIndex = 2
' 显示“打开”对话框
CommonDialog1.ShowOpen
' 显示选定文件的名字
MsgBox CommonDialog1.filename
Exit SubErrHandler：
' 用户按了“取消”按钮
Exit Sub
End Sub