主题：这个代码　哪里错了啊

DataTables("大料").DataRows.Clear
For Each dr1 As DataRow In DataTables("输入").Select("长 >=" & 400  Or "宽 >=" & 400 )
    Dim dr2 As DataRow = DataTables("大料").AddNew
    For Each dc As DataCol In DataTables("大料").DataCols
        dr2(dc.Name) = dr1(dc.Name)
       
    Next
Next

我想　把长或者宽大于等于４００的　都复制到大料里　　应该怎么写呢？　拜谢！！！！