1、报什么错?
2、改成
Dim filt As String = "[收款提醒] <= #" & Date.Today & "# And 款项状态 Like '%未%'"
或者
Dim filt As String = "[收款提醒] <= '" & Date.Today & "' And 款项状态 Like '%未%'"