Modules & VBA :: Object Read Only And Type Mismatch Error For Serial Number

I'm having an issue with the database being read only and a type mismatch due to OpenRecordset. I know this database use to work when it when it was just

CurrentSerNum = RecSet(0) +1 was doing the incrementing.

I need the database to increment in a different way now.

Q=manufacture location
1st number is new=0 or used=1
2nd and third number =82
4th is single digit year aka 2015 = 5
6 and 7th are work week aka 25 for this week
8,9,10 are incremental numbers for the units made that workweek, so 001,002,003.
Then week 26 starts the increment starts back at 001.

Code:
Private Sub MakeThoseProducts_Click()
On Error GoTo Err_MakeThoseProducts_Click
Dim NumericSerial As Double
Dim WorkWeek As String
Dim WorkYear As String
Dim WorkWeekNumber As Integer
Dim WorkYearNumber As Integer
Dim Location As String

[Code] ....