改成(SqlServer)
For Each st As String In DataTables("监理通知单").SQLGetValues("convert(varchar(100), 回复_整改情况)")
或者(Access)
For Each st As String In DataTables("监理通知单").SQLGetValues("cstr(回复_整改情况)")