先生おひさしぶりです。 待ってました!!! ①動画ではcn DimでNewしてまたSetしていますね! Dim cn As New ADODB.Connection Set cn = New ADODB.Connection Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset 標準モジュールでrs,cnをここでのみ宣言する。 Public rs As New ADODB.Recordset Public cn As New ADODB.Connection Public strDBファイルパス As String このように書いてはどうでしょうか! cnを標準モジュールに書いて、rsを標準モジュールに書かない理由があるのでしょうか? ②以前も書きましたが、どのドライブ&パスでも対応可能ですよ。 Public Sub ADO外部接続() '【ADO外部接続】Access用 ADOを使用した接続(更新用) strDBファイルパス = Application.CurrentProject.Path strDBファイルパス = Left(strDBファイルパス, InStrRev(strDBファイルパス, "\") - 1) strDBファイルパス = strDBファイルパス & "\02_データ\HanbaiKanriDB.accdb" cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strDBファイルパス End Sub ③標準モジュールでcn Newしてるので Public cn As New ADODB.Connection SQL Server 編 Public Sub ADO外部接続() Set cn = CreateObject("ADODB.Connection") '←これいらないのでは? 無くてもちゃんと動きました! 久しぶりなのですっかり忘れてましたwww これからも、よろしくお願いいたします。