在datagrid1 中没有显示sum(sum(受理保费)) 中的内容，如何解决

Question

Private Sub Command1_Click()
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.ConnectionString = "dsn=hgsql;uid=sa;pwd=o4w5n6;database=hgprd"
conn.Openstr = "select sum(受理保费) as 受理保费,营业部,区域 from shouli  where 受理日期 between " & RTrim(Text1.Text) & " and " & RTrim(Text2.Text) & "group by 营业部,区域 order by 受理保费 desc  compute sum(sum(受理保费))"
rs.CursorLocation = adUseClient
rs.Open str, conn, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = rs
End Sub在datagrid1 中没有显示sum(sum(受理保费)) 中的内容，如何解决

Answer 1

between #" & RTrim(Text1.Text) & "# and #" & RTrim(Text2.Text) & "#