Len(rs.Fields(1).Value > 0) 这句是不是写错了,Len(rs.Fields(1).Value) > 0 ; 另外,hsdw = rs.Fields(1).Value 没有这种赋值方法,hsdw 是表,rs.Fields(1).Value是字段的值,怎么能够赋值呢?还有,rs.Open "select * from hsdw where 单位名称=" & i,假如单位名称字段是字符串的话,应该加单引号 ,上句可改为:rs.Open "select * from hsdw where 单位名称='" & i & "'"