Data1.Refresh Data1.Recordset.FindFirst "年=2015 And 月=3 And 日=5" if Data1.Recordset.NoMatch Then msgbox "找不到！" else msgbox "找到！" end if
