For I = 2 To 2
'For I = 1 To MaxPages
Conn.Execute "delete * from temp"
If I = 1 Then
Sql = "INSERT INTO temp SELECT TOP " & PageCount & " * FROM 教师"
Else
Sql = "INSERT INTO temp SELECT TOP " & PageCount & " * FROM 教师 WHERE 教师.身份证号 Not In (select top " & (I - 1) * PageCount & " 身份证号 from 教师 )"
End If
Conn.Execute Sql