试试
Dim lst As List(Of String) = tbl.SQLGetValues("UPDATE_TIME","UPDATE_TIME>= TO_DATE('"& d1 &"','YYYY/MM/DD') And UPDATE_TIME<= TO_DATE('"& d2 &"','YYYY/MM/DD') And POLICY_STATE='成功'", "UPDATE_TIME")