求助！关于AOD循环问题，先谢谢了！

坡芽歌书

表1：（只有一个字段）为“字段1”
表1内容为：

字段1

5

7

表2：（有三个字段）为“字段1”、“字段2”，“文本”
表2内容为

字段1	字段2	文本
5	1	1
5	2	1
5	3	1
7	4	2
7	5	2

现在想要得到表2的结果为：

字段1	字段2	文本
5	501	1
5	502	1
5	503	1
7	701	2
7	702	2

我用如下代码，可是不能实现，请高手指教，谢谢！

Private Sub Command0_Click()
Dim con As New ADODB.Connection
Dim rec As New ADODB.Recordset
Dim recc As New ADODB.Recordset
Dim i As Integer
Set con = CurrentProject.Connection
rec.Open "表1", con, adOpenKeyset, adLockOptimistic
recc.Open "表2", con, adOpenKeyset, adLockOptimistic
rec.MoveFirst
i = 1
Do While Not rec.EOF
If rec!字段1 = recc!字段1 Then
Do While Not recc.EOF
recc!字段2 = recc!字段1 * 100 + i
i = i + 1
recc.MoveNext
Loop
End If
recc.Close
Set recc = Nothing

rec.MoveNext
Loop

rec.Close
Set rec = Nothing
End Sub

坡芽歌书

此帖现在结帖了，我自己已经解决问题了！