Anybody please help me, I found confusing problem, when my form with the below codes run, the error message "Type mismatch occurs" .. why?

Dim mApp As String
Dim daoPBXConfig As Database
Dim rsPBXConfig As Recordset

Private Sub Form_Load()
'
mApp = App.Path & "\TeCS.MDB"
Timer1.Enabled = True
CurrPBXList.DatabaseName = mApp
'
Set daoPBXConfig = OpenDatabase(CurrPBXList.DatabaseName)
Set rsPBXConfig = daoPBXConfig.OpenRecordset("Select * from CurrPBXList")

With Form8
.Top = (Screen.height - .height) / 2
.Left = (Screen.width - .width) / 2
End With
'
End Sub

Thank you