dr2 = DataTables("参数").Find("运输地点 = " & "'" & dr1("运输地点") & "' And 车长 = '" & dr1("车长") & "' And 车号 = '" & dr1("车号") & "'" )
在这句代码中把条件加多就可以了.