VBAでAccessのDBに接続する

• 詳細：Excel VBA から Access の DBへ接続する・接続終了する
• 準備：Excel側で、事前に、次の2つに参照設定を行う
  • Microsoft ActiveX Data Objects x.x Library
  • Microsoft ADO Ext. x.x for DDL and Security
• code

• Dim cnn As ADODB.Connection
  Dim cat As ADOX.Catalog
  
  Private Sub connectDB(dbname As String)
      Set cnn = New ADODB.Connection
      cnn.Provider = "Microsoft.Ace.OLEDB.12.0"
      cnn.Open dbname
      Set cat = New ADOX.Catalog
      cat.ActiveConnection = cnn
  End Sub
  
  Private Sub disconnectDB()
      cnn.Close
      Set cnn = Nothing
      Set cat = Nothing
  End Sub