如何在Microsoft Access中通过VBA设置INSERT SQL查询的参数值？

在Microsoft Access中，通过VBA设置INSERT SQL查询的参数值可以通过以下步骤实现：

打开Microsoft Access数据库。
按下Alt + F11组合键打开VBA编辑器。
在VBA编辑器中，点击“插入”菜单，然后选择“模块”以创建一个新的模块。
在新模块中，编写以下代码：

Sub InsertRecord()
    Dim dbConnection As ADODB.Connection
    Dim sqlQuery As String
    Dim param1 As ADODB.Parameter
    Dim param2 As ADODB.Parameter
    
    ' 创建数据库连接
    Set dbConnection = New ADODB.Connection
    dbConnection.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\your\database.accdb;Persist Security Info=False;"
    
    ' 定义SQL查询
    sqlQuery = "INSERT INTO YourTable (Field1, Field2) VALUES (?, ?)"
    
    ' 创建参数化查询
    Set param1 = dbConnection.CreateParameter("param1", adVarChar, adParamInput, 255, "Value1")
    Set param2 = dbConnection.CreateParameter("param2", adInteger, adParamInput, , 123)
    
    ' 执行SQL查询
    dbConnection.Execute sqlQuery, , adCmdText, param1, param2
    
    ' 关闭数据库连接
    dbConnection.Close
    Set dbConnection = Nothing
End Sub