取小于当前时间的单价里最接近当前时间的值即可。参考代码
Dim fdr As DataRow = DataTables("调价").Find("调价时间 <= #" & date.Now & "#", "调价时间 desc")
If fdr IsNot Nothing Then
msgbox(fdr("单价"))
End If