CurrentProject.ConnectionをADODB.Connectionに正しく使用しますか？

Question

Access VBAでは、データベースの挿入/更新にパラメータを使用してADODBコマンドを使用する必要がありました。

挿入するデータベースは常に最新のものなので、CurrentProject.Connectionを使用します。

conn.Openを使用せずにすべて動作すると、オープンしようとするとエラー3705が返されます。オブジェクトが開いているときは操作できません。

接続制限になる重要なものがありませんか？誰かがより良い方法を提案できますか？

Dim sql As String 
sql = "INSERT INTO " 
sql = sql + "[table]" 
sql = sql + "(field1,field2)" 
sql = sql + "VALUES (@field1,@field2)" 

Dim conn As ADODB.Connection 
Set conn = CurrentProject.Connection 
Dim cmd As ADODB.Command 
Set cmd = New ADODB.Command 

With cmd 
.ActiveConnection = conn 
.CommandType = adCmdText 
.CommandText = sql 
.Parameters.Append .CreateParameter("@field1", adVarChar, adParamInput, 255, x) 
.Parameters.Append .CreateParameter("@field2", adVarChar, adParamInput, 255, y) 
.Execute 
End With 

Answer 1

DAOを使用していますか？

Dim q  As DAO.QueryDef 
Dim strSQL As String 

strSQL = "INSERT INTO table1 " & _ 
     "(City, Province) " & _ 
     "Values([pCity], [pProvince])" 

Set q = CurrentDb.CreateQueryDef("", strSQL) 
q.Parameters("pCity") = "Edmonton" 
q.Parameters("pProvince") = "Alberta" 
q.Execute