ハイパーリンクをＡＤＯで追加したい

質問

こんばんは。
テーブル１のハイパーリンク型のフィールドに
テキストのアドレスを追加して、
クリックすると開くようにしたいのですがうまくいきません。
（エクセル→アクセス（２００３））

Sub ハイパーリンクを追加()

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

Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Desktop\db1.mdb"

Set rs = New ADODB.Recordset
rs.Open "テーブル1", cn, adOpenKeyset, adLockOptimistic

rs.AddNew
rs!番号 = 1
rs!リンク = "C:\Users\Desktop\test.txt"
rs.Update

rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
End Sub

これを実行すると
見た目としてはハイパーリンクが追加されたように見えるのですがクリックしても何も起こりません。

「ハイパーリンクの挿入」を確認してみると
表示文字列は　C:\Users\Desktop\test.txt
が入力されていますが
アドレスは空欄です。

アドレスにも「"C:\Users\Desktop\test.txt"」を入れるにはどうすればいいのでしょうか？
よろしくお願いします。

回答No.1

redfox63 · ベストアンサー

リンク列の定義を見直しましょう
単なる『テキスト型』では ご質問のようにようになると思います
『ハイパーリンク型』の設定にして 代入するデータの前後に#を付け加えましょう

rs!リンク.Value = "#C:\Users\Desktop\test.txt#"
といった具合です

お礼

試したら思い通りになりました！！！ありがとうございます。