Vb error no. 3265 "Items cannot be found in this collection"

Whenever l select a record from the database l get the above error of 3265. I am using access database and l have four databases hence my four select statements. The error only occurs when records are read from the database. Below is my code.

SQLStr = "Select PlannerManager1.[LM_Fore_Name], PlannerManager1.[LM_Initial], PlannerManager1.[LM_Last_Name], PlannerManager1.[LM_OUC] from UnrecordedEstimates, PlannerManager1 where UnrecordedEstimates.[SentMailStatus] = 2 and UnrecordedEstimates.[Status] = 'K' and UnrecordedEstimates.[FIRST_NAME]= PlannerManager1.[Forename] and UnrecordedEstimates.[SURNAME_PLANNING]= PlannerManager1.[Surname] and UnrecordedEstimates.[JOB_PLNG_ETG_OUC]= PlannerManager1.[OUC]" 'Louise"
Dim dbs As Database
Dim Rs As Recordset
Dim Finalstr As String

Select Case mDBName
Case LASERDB_B 'this is the Bromley database
Set dbs = OpenDatabase("C:\Laser\Bromley\Laser(b).mdb")
Set Rs = dbs.OpenRecordset(SQLStr, dbOpenSnapshot, dbReadOnly)
If Rs.RecordCount > 0 Then
Rs.MoveFirst
frmMail.ManagerList.Clear
While Not Rs.EOF
Finalstr = ""
Finalstr = Finalstr & Rs!LM_Last_Name
Finalstr = Finalstr & ","
Finalstr = Finalstr & Rs!LM_Initial
Finalstr = Finalstr & ","
Finalstr = Finalstr & Rs!LM_Fore_Name
Finalstr = Finalstr & ","
Finalstr = Finalstr & Rs!LM_OUC
frmMail.ManagerList.Clear
frmMail.tbsProcess.Tabs(2).Selected = True
frmMail.Frame2.ZOrder
frmMail.ManagerList.AddItem (Finalstr)
Rs.MoveNext
Wend
Else
MsgBox "No records found."
End If
Rs.Close
dbs.Close
Set Rs = Nothing
Set dbs = Nothing
Case LASERDB_C
Set dbs = OpenDatabase("C:\Laser\Croydon\Laser(c).mdb") 'this is the Croydon database
Set Rs = dbs.OpenRecordset(SQLStr, dbOpenSnapshot, dbReadOnly)
If Rs.RecordCount > 0 Then
Rs.MoveFirst
frmMail.ManagerList.Clear
While Not Rs.EOF
Finalstr = ""
Finalstr = Finalstr & Rs!LM_Last_Name
Finalstr = Finalstr & ","
Finalstr = Finalstr & Rs!LM_Initial
Finalstr = Finalstr & ","
Finalstr = Finalstr & Rs!LM_Fore_Name
Finalstr = Finalstr & ","
Finalstr = Finalstr & Rs!LM_OUC
frmMail.ManagerList.Clear
frmMail.tbsProcess.Tabs(2).Selected = True
frmMail.Frame2.ZOrder
frmMail.ManagerList.AddItem (Finalstr)
Rs.MoveNext
Wend
Else
MsgBox "No records found."
End If
Rs.Close
dbs.Close
Set Rs = Nothing
Set dbs = Nothing
Case LASERDB_P
Set dbs = OpenDatabase("C:\Laser\Portsmouth\Laser(p).mdb") 'this is the Croydon database
Set Rs = dbs.OpenRecordset(SQLStr, dbOpenSnapshot, dbReadOnly)
If Rs.RecordCount > 0 Then
frmMail.lstMailPlanners.Clear
Rs.MoveFirst
frmMail.ManagerList.Clear
While Not Rs.EOF
Finalstr = ""
Finalstr = Finalstr & Rs!LM_Last_Name
Finalstr = Finalstr & ","
Finalstr = Finalstr & Rs!LM_Initial
Finalstr = Finalstr & ","
Finalstr = Finalstr & Rs!LM_Fore_Name
Finalstr = Finalstr & ","
Finalstr = Finalstr & Rs!LM_OUC
frmMail.tbsProcess.Tabs(2).Selected = True
frmMail.ManagerList.ZOrder
frmMail.ManagerList.AddItem (Finalstr)
frmMail.Frame2.ZOrder
Rs.MoveNext
Wend
Else
MsgBox "No records found."
End If

Rs.Close
dbs.Close
Set Rs = Nothing
Set dbs = Nothing
Case LASERDB_S
Set dbs = OpenDatabase("C:\Laser\Croydon\Laser(c).mdb") 'this is the Croydon database
Set Rs = dbs.OpenRecordset(SQLStr, dbOpenSnapshot, dbReadOnly)
If Rs.RecordCount > 0 Then
Rs.MoveFirst
frmMail.ManagerList.Clear
While Not Rs.EOF
Finalstr = ""
Finalstr = Finalstr & Rs!LM_Last_Name
Finalstr = Finalstr & ","
Finalstr = Finalstr & Rs!LM_Initial
Finalstr = Finalstr & ","
Finalstr = Finalstr & Rs!LM_Fore_Name
Finalstr = Finalstr & ","
Finalstr = Finalstr & Rs!LM_OUC
frmMail.ManagerList.Clear
frmMail.tbsProcess.Tabs(2).Selected = True
frmMail.Frame2.ZOrder
frmMail.ManagerList.AddItem (Finalstr)
Wend
Else
MsgBox "No records found."
End If
Rs.Close
dbs.Close
Set Rs = Nothing
Set dbs = Nothing
End Select

[aaudette]

Thats alot of code, this error usually means you speeled the name of a table or field wrong