参考代码
Dim dt As DataTable = DataTables("表A")
Dim fdr As DataRow = dt.Find("", "时间 desc")
If fdr Isnot Nothing Then
msgbox(fdr("消息"))
End If