For Each c As Col In dr1("表名").Colsdr是datarow,表示行,没有cols属性的吧
for each ...in..
next
这整个是一个语句,in不是一个语句,你搞错了