With DataTables("W01cx2")
.LoadFilter ="[GB011] = '" & Tables("YWBXTBR") .Current("GB011")& "'"
.load()
End With
end if