把表名去掉,如
r1("ERP最早齐套日") = dt1.GetComboListString("TA202","TA006 = '" & r1("产品品号") & "' AND A = '" & r1("工单编号") & "'")