以下のVBAを作成しておりますが､cn.Openのところで､実行時ｴﾗｰ'-2147467259(80004005)' ｴﾗｰを特定できません｡･･･というｴﾗｰがでてしまいます｡ご教示願え…

以下のVBAを作成しておりますが､cn.Openのところで､
実行時ｴﾗｰ'-2147467259(80004005)'

ｴﾗｰを特定できません｡

･･･というｴﾗｰがでてしまいます｡
ご教示願えませんでしょうか｡

Private Sub worksheet_change(ByVal target As Range)

Dim cn As Connection
Dim rs As Recordset
Dim sql As String

Set cn = New Connection

cn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;" _
& "Data Source=C:\Users\Database2.accdb"

cn.Open

sql = "select 氏名 from 社員台帳 where 社員_番号 =" & Range("B3").Value

Set rs = New Recordset
rs.Open sql, cn

Range("D3").CopyFromRecordset rs

cn.Close: Set cn = Nothing
rs.Close: Set rs = Nothing

End Sub

SQLが間違っている恐れがあります｡

ｱｸｾｽ上でSQLを実行してｴﾗｰになりませんか？

あと
sql = "select 氏名 from 社員台帳 where 社員_番号 =" & Range("B3").Value

で Range("B3").Valueじゃなく直接値をｾｯﾄしたりしたらどうでしょうか？

sql = "select 氏名 from 社員台帳 where 社員_番号 = 1"

みたいに｡

ちなみに社員_番号って数値型ですよね？

80004005は接続できませんでしたというｴﾗｰ｡
SQLが間違っている場合に出るｴﾗｰじゃないので恐れとかはまったく関係ない話｡

ExcelVBAでAccdb利用したいならばまずは参照設定の確認｡
必要なのは｢Microsoft ActiveX Data Objects ほげほげ Library｣
ほげほげはｲﾝｽﾄｰﾙされているOfficeのﾊﾞｰｼﾞｮﾝによって変わる｡

accdbの接続にﾊﾟｽﾜｰﾄﾞが必要なら追加も必要｡
cn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;" _
& "Data Source=C:\Users\Database2.accdb;Jet OLEDB:Database Password=ﾊﾟｽﾜｰﾄﾞ"

実用ではなく実験段階だと思いますがworksheet_changeｲﾍﾞﾝﾄが起こる度にﾃﾞｰﾀﾍﾞｰｽと接続しているような重い処理はやめたほうが良いです｡
worksheet_changeで｢更新ﾎﾞﾀﾝ｣を表示するなどして｢更新ﾎﾞﾀﾝ｣がｸﾘｯｸされた時にだけﾃﾞｰﾀﾍﾞｰｽを参照して関係しているｾﾙに情報を書き出すとかしたほうが処理が軽くなりますし､ﾃﾞｰﾀﾍﾞｰｽからﾃﾞｰﾀを取ってくるだけのﾏｸﾛを別につくるわけですからﾃｽﾄもやりやすく(worksheet_changeｲﾍﾞﾝﾄを発生させる必要が無く直接ﾏｸﾛを起動すればﾃｽﾄできる)なります｡
丁寧にしたいならworksheet_changeで未更新のｾﾙの色を変えてやるくらいはしても良いでしょう｡