For Each dr As DataRow In DataTables("表B").Select("[第一列] > ''")
DataTables("表A").DeleteFor("[第一列] = '" & dr("第一列") & "'")