用do while……loop循环判断两个字段中的记录是否相同？？

Question

1、按格式判断两个字段中的记录是否相同。
2、统计有多少个相同记录，结果输出到text1.text中。数据表：字段1  字段2
  1      2
  2      3
  3      1
  3      2
  2      3
  1格式是：
“字段1”的第二条记录 比 “字段2”的第一条记录。循环。如上“数据表”运行时：字段1  字段2
   1 （省略）
   2  比 2    （相同）
   3  比 3    （相同）
   3  比 1    （不同）
   2  比 2    （相同）
   1  比 3    （不同）统计结果：
  （相同）的有“3”个
   text1.text = 3请高手们写出代码来，谢谢！ 

Answer 1

   Dim x1, x2
   Dim iCount As Integer
   
   With Adodc1.Recordset
        Do While Not .EOF
           x2 = .Fields("字段2")
           .MoveNext
           If .EOF Then GoTo xs
           x1 = .Fields("字段1")
           If x1 = x2 Then iCount = iCount + 1
        Loop
   End With
xs: Text1.Text = iCount

Answer 2

select count(*) from table where 字段1 = 字段2

Answer 3

猴哥，“字段1”的起始值是第二条记录。循环MoveNext到最后一条记录。
      “字段2”的起始值是第一条记录。循环MoveNext请再帮我修改一下面的这段代码。Dim x1, x2，iCount As Integer
        Do While Not .EOF
           x2 = .Fields("字段1")
           .MoveNext
           If .EOF Then exit do
           x1 = .Fields("字段2")
           .MoveNext
           If x1 = x2 Then iCount = iCount + 1
        Loop
 Text1.Text = iCount

Answer 4

先取字段2的值，再取一的值，不用来回倒指针。
Dim x1, x2，iCount As Integer
  Do While Not .EOF
  x2 = .Fields("字段2")
  .MoveNext
  If .EOF Then exit do
  x1 = .Fields("字段1")
  If x1 = x2 Then iCount = iCount + 1
  Loop
 Text1.Text = iCount