>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

Are you referencing DAO and ADO in your app?

Specify the library like this:

Dim daoPBXConfig As DAO.Database
Dim rsPBXConfig As DAO.Recordset