Restart Numbering Annually - Vba Debug

I found an old post by sbaxter that appears to give me what I need. The problem is that there must be something I am not understanding.

Right now I am getting an "invalid use of null" warning, even though I know that there are values out there.

Everything is on SQL server and I am using an adp file.

The goal is to take the year from the "date received field." and check the table for all records that match. Then get the maximum "Claim_Number_Increment" value from the table. My new increment value will become one higher than that. (I haven't gotten to the point of handling the reset to one when there are no values year - one thing at a time.)

Here's my code, adapted from sbaxter's example:

Code:Dim dtCurrentYear As DateDim s As StringDim intIncrement As IntegerDim db As New ADODB.ConnectionDim rs As New ADODB.RecordsetSet db = CurrentProject.ConnectiondtCurrentYear = Year(Me.txtDateReceived) s = "SELECT MAX(Claim_Number_Increment_I) As 'Increment' FROM dbo.CSF_Claims_T " _ & "WHERE Year(Date_Received_DT) = " & dtCurrentYear Set rs = New ADODB.Recordset rs.Open s, db, adOpenStatic, adLockOptimistic intIncrement = rs.Fields("Increment") Set rs = Nothing Me.txtIncrement = intIncrement + 1

Somehow, it is telling me that I have no values - in reality, I should be getting a 4.

Could someone advise me? Thanks!