"Each field is called: LIC1, LIC2, through LIC12. Since the table is a linked table, I cannot change the properties on the table. I have been trying to count up how many of these LIC fields are not blank"

There are two ways to do this:

Function CountStates() As Long
    Dim x As Long, n As Long, s As String
    With Me
        For x = 1 to 12
            s="LIC" & LTrim(x)
            If Len(.Controls(s)) > 0 Then
                n = n + 1
            EndIf
        Next x
    End With
    CountStates = n
End Function

The other way: Make a query like this:

 -1*(Len([LIC1])>0)-1*(Len([LIC2])>0) ... -1*(Len([LIC12])>0)

how this works:

• Len([LIC1]) gets the length of the field
• Len([LIC1])>0 tests if it's empty, returns True (-1) or False (0)
• -1*(Len([LIC1])>0) returns 1 if field is not empty, 0 if field is empty
• add them all together to get the answer