Private Sub Command0_Click()
Dim rst As New ADODB.Recordset
rst.Open "SELECT basic.* FROM basic;", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rst.MoveFirst
For i = 1 To rst.RecordCount
rst("kh") = Format(rst.AbsolutePosition, "00000")
rst.MoveNext
Next i
Set ret = Nothing
MsgBox "已经生成准考证号码!"
End Sub