Private Sub Report_Activate()
Dim rs As New ADODB.Recordset
Dim ssql As String
Dim i, M As Integer
ssql = "select 姓名,贪官id from 贪官表 ORDER BY 贪官表.贪官id"
rs.Open ssql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
M = 1
i = 1
rs.MoveFirst
For M = 1 To rs.RecordCount Step 13
For i = 1 To 13
If rs.EOF Then Exit For
Me.Controls("Text" & i) = rs!姓名
Me.Controls("M" & i) = rs!贪官id
rs.MoveNext
Next i
Next M
rs.Close: Set rs = Nothing
End Sub