将 MSFlexGrid1.TextMatrix(1, 2) = rs.Fields("浮标号")   这句换成：
MSFlexGrid1.TextMatrix(1, 2) = IIf(IsNull(rs.Fields("浮标号")), "", rs.Fields("浮标号")) '即使是空值也忽略