Access VBAでSQLを実行する

AccessのVBAで、好きなSQLを実行する方法。

でもCREATE TABLEみたいにテーブルを追加したり削除したりはできないっぽい。
主にSELECTとUPDATE、INSERTみたいな運用系(?)SQL専用だな。

'#### 支度 ####
Dim con As ADODB.Connection
Dim rs As ADODB.Recordset

'#### DBを開く ####
Set con = Application.CurrentProject.Connection

'#### SQL実行 ####
Set rs = con.Execute("SELECT * FROM テーブル WHERE ID = ""DXERW""")

'#### 後片付け ####
con.Close
Set con = Nothing

こんな感じ。