Vba 运行时错误2115更新后

我有一个包含一些值的列表框。我想做这项工作：

如果用户滚动此列表框并选择一个值，则将运行一个查询，查询结果应显示在文本框中。我已将此代码作为列表框的

更新后事件编写。但我得到了这个错误：

Private Sub List2_AfterUpdate()
  Dim rst As DAO.Recordset
  Set rst = CurrentDb.OpenRecordset("SELECT XValue, YValue,Wert FROM tb_DCM_Daten WHERE (FzgID=" & Forms!frm_fahrzeug!ID & " AND [Name]='" & List2.Value & "')")
  If rst.RecordCount <> 0 Then
    If IsNull(rst.Fields("XValue").Value) Then
      Text10.SetFocus
      Text10.Text = "-"
    End If
  Else
  MsgBox "The record set is empty"
  End If
End Sub

Private子列表2\u AfterUpdate（）
将rst设置为DAO.Recordset
Set rst=CurrentDb.OpenRecordset（“从tb_DCM_Daten中选择XValue、YValue、Wert，其中（FzgID=“&Forms！frm_fahrzeug！ID&”和[Name]=”&List2.Value&“））
如果rst.RecordCount为0，则
如果为空（rst.Fields（“XValue”）.Value），则
Text10.SetFocus
Text10.Text=“-”
如果结束
其他的
MsgBox“记录集为空”
如果结束
端接头

我如何解决这个问题？

有没有更好的方法来完成这项工作？
您是否尝试过使用列表框的_Click（）事件？
是否将
Text10
绑定到表单记录源中的字段？