新手求指导VB

自定义一个可使用SQL语句的函数
Public Function ExecuteSQL(ByVal SQL As String, Msgs As String) As ADODB.Recordset '自定义函数
   Dim cnn As ADODB.Connection '创建一个新的数据库连接
   Dim rst As ADODB.Recordset '创建一个新的数据库记录,
   Dim sCmd() As String

   sCmd = Split(SQL)
   Set cnn = New ADODB.Connection   '创建数据库连接
   cnn.Open ConnectStr    '打开
   If InStr("INSERT,DELETE,UPDATE", UCase$(sCmd(0))) Then
      cnn.Execute SQL                     '执行命令
      Msgs = sCmd(0) & " 查询成功"
   Else
      Set rst = New ADODB.Recordset
      rst.Open Trim$(SQL), cnn, adOpenKeyset, adLockOptimistic '
      Set ExecuteSQL = rst
      Msgs = "查询到" & rst.RecordCount & " 条记录 "    '查询结果的数目
   End If
   On Error GoTo Err1
Err_Exit:
   Set rst = Nothing   '关闭
   Set cnn = Nothing
   Exit Function
Err1:
   Msgs = "查询错误: " & Err.Description
   Resume Err_Exit
End Function
然后
Dim mrc As ADODB.Recordset
Dim MsgText As String

Dim txtSQL, Date1, Date2 As String
Dim sum As Currency
If Combo2.Text <> "" Then
        If Combo3.Text <> "" Then '月份大于0，则开始为本月1日
              Date1 = Trim(Combo2.Text) + "-" + Trim(Combo3.Text) + "-01"
              If Combo3.Text = 12 Then '月份为12，则结束为下一年度1月1日
                   Date2 = Trim(Combo2.Text + 1) + "-1-1"
              Else
                   Date2 = Trim(Combo2.Text) + "-" + Trim(Combo3.Text + 1) + "-1"
              End If
         Else
              Date1 = Trim(Combo2.Text) + "-1-1"
              Date2 = Trim(Combo2.Text) + "-12-31"
         End If
             If txtSQL = "select sum(金额) from 日常收支表" Then
                             txtSQL = txtSQL & " where 日期  > CDate(Date1) and 日期 < CDate(Date2)"
             Else
                             txtSQL = txtSQL & " And 日期 >  CDate(Date1) and 日期 < CDate(Date2) "
             End If
    End If
    Set mrc = ExecuteSQL(txtSQL, MsgText)
        With MSFlexGrid1
        .Cols = 1
         .ColWidth(0) = 4300
            .TextMatrix(0, 0) = "在该时间段该人员在该收支类型方面经手的财产金额为"
            .TextMatrix(1, 0) = mrc.Fields(0) & "元"
        End With

在数据库中  日期为日期/时间数据类型
错误显示为“至少一个参数没有被指定值”

请各位大神帮忙解决！ --------------------编程问答-------------------- 日期变量的引用：'"& 日期变量 &"'

If txtSQL = "select sum(金额) from 日常收支表" Then
  txtSQL = txtSQL & " where 日期>'"& CDate(Date1) &"' and 日期 <'"& CDate(Date2) &"'"
Else
  txtSQL = txtSQL & " And 日期>'"& CDate(Date1) &"' and 日期 <'"& CDate(Date2) &"'"
End If

补充：VB ,  数据库(包含打印，安装，报表)