DAO……

For j = 0 To oRS.RecordCount - 1
                            If IsNumeric(oRS.Fields(1)) Then
                            rs.AddNew
                            rs.Fields(fields(i)) = oRS.Fields(1)
                            rs!nian = year
                            rs!yue = month
                            rs.Update   '必须有更新语句,否则会出错
                            End If
                            oRS.MoveNext
                  Next