Dim txt2 As String
On Error GoTo err01
txt2 = "select 日期,物品名称,金额,单位,数量,购买地 from many where 日期=" & DTPicker1
.Value1 & ""
Adodc1.RecordSource = txt2
Adodc1.Refresh
err01:
If Err.Number = 3726 Then
MsgBox "输入不存在的,或者找不到该记录!"
End If
同时,请参考VB方面的书,你的ADO语法不正确,你没有定义txt2要输出哪个字段的内容。