excel vbaを使用してアクセスポイントdbに共有ポイントをリンクしました

Question

エクセルvbaを使用してアクセスポイントdbにシェアポイントリンクテーブルをリフレッシュしようとしています。 I'vは、Excel VBA

On Error GoTo ExceptionHandle 
Dim cn As ADODB.Connection, rs As ADODB.Recordset 

' connect to the Access database 
Set cn = New ADODB.Connection 
cn.Open "Provider=Microsoft.ACE.OLEDB.12.0; " & _ 
"Data Source=C:\sample.accdb;"  
' open a recordset 
Set rs = New ADODB.Recordset 

でのアクセスDBの接続を作成したが、どのように私は、メソッドCurrentDb.TableDefs（ "テーブル名"）。RefreshLinkを使用してください。 cnを使ってcurrentdbを指定するにはどうすればいいですか？

Answer 1

私はADODBはCurrentDbメソッドをサポートしていないと思いますが、DAOはサポートしています。