select * from 商品基础信息表
你选择的是所有列。这里面很可能有数值类型的列。当该列被循环到的时候,执行判断:
If rs1.Fields(i) <> "" Then Text1(i).text = rs1.Fields(i)
的时候就会报这种类型错误。你最好做个判断
If Isnumeric(rs1.Fields(i)) Then
Text1(i).text = rs1.Fields(i)
else
If rs1.Fields(i) <> "" Then Text1(i).text = rs1.Fields(i)
end if