Set Rst1 = CustDb.OpenRecordset("SELECT firstName , secondname , a1 , a2 , customerid From dbo_tblcustomer" & " ORDER BY firstname", ,dbSeeChanges)
dbSeechanges is an "Options" value not a "Type" value so has to be third parameter.
Also probably need space between "dbo_tblCustomer" and "ORDER".
M.