用如下语句进行查询，出现了错误提示，请帮助看看哪里有问题。谢谢！

sql = "SELECT A.hth, A.pf, B.ylpf, B.ylsh, B.cgfs, Sum(B.dh*A.sl) AS yyl FROM A INNER JOIN B ON (A.hth = B.hth) AND (A.pf = B.pf) GROUP BY A.hth, A.pf, B.ylpf, B.ylsh, B.cgfs where A.hth='" & & "' ORDER BY A.pf ASC "


错误提示：
实时错误 ‘-2147217900 (80040e14)’：语法错误(操作符丢失)在查询表达式’b.cgfs where a.hth=’a123’’中。

把你的  SQL 命令字符串 全部显示出来，然后仔细看看，

看看 where 这附近 那里的字符串 出现错误。

你这样的提问，看不出东西来了。

不好意思，整段代码如下：
Dim i, sql
 Dim rs As New ADODB.Recordset, cn As New ADODB.Connection
 
    Set cn = New ADODB.Connection
    Set rs = New ADODB.Recordset
 If = "" Then
  MsgBox "只有输入了合同号，才能进行查询！", vbOKOnly, "提示"
 Exit Sub
 End If
 If rs.State = adStateOpen Then rs.Close
          sql = "SELECT A.hth, A.pf, B.ylpf, B.ylsh, B.cgfs, Sum(B.dh*A.sl) AS yyl FROM A INNER JOIN B ON (A.hth = B.hth) AND (A.pf = B.pf) GROUP BY A.hth, A.pf, B.ylpf, B.ylsh, B.cgfs where A.hth='" & & "' ORDER BY A.pf ASC "
    cn.CursorLocation = adUseClient
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;Jet OLEDB:Database Password=;Persist Security Info=False;"

        rs.Open sql, cn, 1, 1
        Set Me.DataGrid1.DataSource = Nothing
        Set Me.DataGrid1.DataSource = rs

sql = "SELECT A.hth, A.pf, B.ylpf, B.ylsh, B.cgfs, Sum(B.dh*A.sl) AS yyl FROM A INNER JOIN B ON (A.hth = B.hth) AND (A.pf = B.pf) where A.hth='" & & "' GROUP BY A.hth, A.pf, B.ylpf, B.ylsh, B.cgfs  ORDER BY A.pf ASC"
这样试试。

在
        rs.Open sql, cn, 1, 1

这行前面加一个 Debug.print sql
然后把 在立即窗口 显示的 字符串 复制出来检查。

光看代码，SQL 命令错误，有些时候是看不出来的。

问题解决了
谢谢

是那样解决的吗?
请结贴。