siz Topla demişsiniz ama say olmalıydı
ayrıca
Kod:
If rs1(x).Type <> 7 Then rs2(x) = rs1(x)
Kod:
If rs1(x).Properties("Expression") = "" Then rs2(x) = rs1(x)
If rs1(x).Type <> 7 Then rs2(x) = rs1(x)
If rs1(x).Properties("Expression") = "" Then rs2(x) = rs1(x)