I am wondering if anyone can help me out. I have an Access Database that
has been running since forever. Now when I try to open a form I get the
"Run-time error '6' Overflow message and a window asking me to debug or
end. Here is what i see on debug:

Private Sub CmdPeopleAdd_Click()
       Dim db As Database
       Dim Rs As Recordset
       Set db = CurrentDb
       Dim SQL As String
       Dim i As Integer
       Set db = CurrentDb
       SQL = "SELECT ID FROM Clients ORDER BY ID;"
       Set Rs = db.OpenRecordset(SQL)
       Rs.MoveLast
       i = Rs!ID + 1 ' Increment the number by one
       Rs.AddNew
       Rs!ID = i
       Rs.Update
       Rs.Close
       db.Close
   DoCmd.OpenForm "FrmPeople", , , , , , i
End Sub

The highlighted area to debug is i = Rs!ID + 1 ' Increment the number by
one.

Thank you,
sf