类型不匹配？？？？

Dim conn As New ADODB.Connection
Dim rs As ADODB.Recordset
Dim CnStr As String, Sql As String
Dim FileNameFileName = App.Path & "\协管员信息表.mdb"
CnStr = "PROVIDER=microsoft.jet.oledb.4.0;persist security info =false;data source=" & FileName
conn.Open CnStrSql = "SELECT AVG(总分) AS ZF FROM 协管员打分 WHERE [所属码头] LIKE '%" & Combo1.Text & "%' AND 抽查时间>= #" & CDate(Text2.Text) & "# AND 抽查时间<=#" & CDate(Text3.Text) & "#"""
Debug.Print Sql
Set rs = conn.Execute(Sql)
Dim XgydfZF As Single '这是协管员打分表的平均分
XgydfZF = rs("ZF")Sql = "SELECT AVG(总分) AS ZF FROM 码头评分 WHERE [码头名称] LIKE '%" & Combo1.Text & "%' AND 时间>= #" & CDate(Text2.Text) & "# AND 时间<= #" & CDate(Text3.Text) & "#"
Debug.Print Sql
Set rs = conn.Execute(Sql)
Dim MtpfZF As Single '这是码头评分表的平均分
MtpfZF = rs("ZF")conn.CloseText1.Text = XgydfZF * 0.6 + MtpfZF * 0.4Adodc1.Recordset.AddNew运行显示类型不匹配，错误行在第一行的sql,这是怎么回事啊？