ACCESS カレントデータベースにADO接続

一般的なパスに接続する記述は本に書いてあったりしますが、
カレントデータベースにADO接続する方法が手元の本にはなかったので。
メインはPostgreSQLなんですが、
せっかくインターフェースにACCESSを使っているので、
非連結フォームばかりじゃもったいない、ということで（笑）。

いったんカレントデータベース（mdb）にテーブルとして値取得、
そのテーブルと連結したフォームで入力などなど、
変更はそこからPostgreSQLに接続して、updateやinsertを行う、なんて回りくどいですかね？

Dim objCon As New ADODB.Connection
Dim objRs As New ADODB.Recordset
Dim SQLselect As String
Dim SQLupdate As String

Set objCon = CurrentProject.Connection

SQLselect = "select * from table1"

Set objRs = objCon.Execute(SQLselect)

Do Until objRs.EOF
Debug.Print objRs!id & " => " & objRs!name

objRs.MoveNext
Loop
objRs.Close
Set objRs = Nothing
objCon.Close
Set objCon = Nothing