Access VBA SQL无法执行

使用以下生成

错误：（2342）运行SQL操作需要由SQL语句组成的操作 声明

代码如下：

Dim Lping As Variant
Lping = "SELECT dbo_Log_Table.LogID"
Lping = Lping + " FROM dbo_Log_Table"
Lping = Lping + " WHERE (((dbo_Log_Table.LogID)=1))"
DoCmd.SetWarnings False
DoCmd.RunSQL Lping
DoCmd.SetWarnings True

SQL从QBE网格复制并从那里执行。我有其他类似的代码，但看不出这有什么问题

提前谢谢

---

问题是

DoCmd.RunSQL

运行操作语句：

Insert

，

Update

，

Delete

。select语句没有任何作用。您无法获得此查询的结果并使用它们，因此

RunSQL

甚至不会让您浪费时间

---

如果要使用此查询的结果，需要创建一个

QueryDef

，一个查询对象并使用它，或者显式生成一个记录集。无论哪种方式，查询都需要进入要使用的记录集中。

运行RunSQL（）时，Lping的值是多少？