ms-access - 保護されたデータベースへの VBA 接続、エラー処理

Question

2 つのフィールドを持つフォームを作成しています。1 つはデータベースのパスを参照でき、もう 1 つはデータベースのパスワードです。

正しいパスワードとデータベース ファイルへのパスがあれば、すべて正常に動作します。

私の問題は、正しいパスワードを持っていないか、ファイルがデータベースではない場合、エラーが発生してプログラムを停止することです。クラッシュせずに接続をテストすることはできません。

全体をクラッシュさせずにパスとパスワードをテストするにはどうすればよいですか。ここで私がこれまでに行ったことを見てください（非常に単純です）：

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim canConnect As Boolean

Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Jet OLEDB:Database Password=" & Me.txt2   & ";   Data Source=" & Me.txt1 & ";"
Set rs = New ADODB.Recordset

If cn.State = adStateOpen Then
  canConnect = True
  cn.Close
End If

MsgBox canConnect

ご覧のとおり、txt1 と txt2 は私の 2 つのテキストエリアであり、前述のように、メッセージ ボックスのプロンプトの前にすべてがクラッシュします。