你的日期列是字符型的吗?
If dtt.Find("日期 = '"& e.Form.Controls("日期").text &"'and 配菜名称 = '" & e.Form.Controls("配菜名称").text & "'") IsNot Nothing Then