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

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’’中。

不好意思，整段代码如下：
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

问题解决了
谢谢