100分寻求改正程序！

Question

parm_enddate.Value 与
 Format(Text2.Text, "yyyy-mm-dd")
数据类型不匹配

Answer 1

问题的根本原因出在日期格式上,如果你输入的日期不对的话,就会出错,所以最好的办法是判断输入的数据是否能转换成日期型.而不是判断输入的长度:将判断语句改成下面的:If isdate(Text1.Text)=false Then
MsgBox ("你输入的不是日期")
Exit Sub
End If
If isdate(Text2.Text)=false Then
MsgBox ("你输入的不是日期")
Exit Sub
End If

Answer 2

另外,你的定义与控件名有冲突:
Dim Command1 As ADODB.Command