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

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