Private Sub Form_BeforeInsert(Cancel As Integer)
Dim db As Database
Dim rs As Recordset
Dim i As Integer
Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT Min(ApplicantId) As Expr1 FROM Applicant", DB_OPEN_DYNASET)
If Not rs.EOF Then
rs.MoveFirst
i = CInt(rs.Fields("Expr1").Value)
i = i -...