Sql Microsoft Access从窗体向VB传递变量

我构建了一个包含两个组合框的表单，一个用于事件，一个用于人员。对框的两个查询包括事件id和人员id，但未显示。其想法是从下拉列表中选择活动，然后添加一个人参加活动。我的问题是将这两个ID传递给SQL更新脚本

下面是VB；我收到一个424错误并调用SQL作为区域

怎么了

    Private Sub Command15_Click()

Dim dbs As DAO.Database, sql As String, rCount As Integer

  Set dbs = CurrentDb

  sql = "INSERT INTO Whos_Going (Event_ID, Who_is_invited) " _
  & "VALUES(" & Event_id.Text & ", " & People_id.Text & ")"

  dbs.Execute sql, dbFailOnError

  rCount = dbs.RecordsAffected

If rCount > 0 Then
MsgBox "Person Added to Event"
'update listbox
conInfo.Requery
End If

End Sub

---

使用VBA，您需要构造有效的sql语句。所有字符串文字必须包含在“”中，所有日期必须包含在“”中。此外，如果字符串变量包含撇号，则需要将其替换为。正确的语法为：

sql = "INSERT INTO Whos_Going (Event_ID, Who_is_invited) " _
    & "VALUES('" & Replace(Event_id.Text, "'", "''") & "', '" _
    & Replace(People_id.Text, "'", "''") & "')"

---

干杯，但仍然是424错误，变量对吗？它们不会在formObject required错误中显示在屏幕上。请看这里：