Dim strSQL As String ’SQL文
Dim adoCn As ADODB.Connection ’コネクション名
Dim adoRs As ADODB.RecordSet ’レコードセット名
（中略）
Set adoCn = New ADODB.Connection
adoCn.Open provider=microsoft.jet.oledb.4.0;data source=（Accessファイルへのパス）
strSQL = （SQL文記述）
Set adoRs = New ADODB.RecordSet
adoRs.Open strSQL, adoCn, adOpenStatic
これで出来ちゃいます。こんなに簡単にできるとは思ってなかったので、余裕で今日中に作れますね。
悩んでいた物がスッキリするととても爽快です。あまりにも爽快過ぎて「今のわたしだったら烈 海王にだって勝てる！」とホザきたくなる程です。
あーでも余った時間全てテストに使うのか…それはそれで退屈になるから少しイヤだ…。
以上日記と言いつつ、一般人には理解し難い内容でした。
プログラムというカテゴリを作ればいいんだが滅多に出る話題でも無いしねぇ。