所有的表都有统一的字段,比如“姓名”
然后在循环中处理2楼的代码
For Each dt As DataTable In DataTables
dt.LoadFilter = "姓名 = '" & User.name & "'" dt.Load
Next