Provider Cannot be found

Hi,

I am not sure where i am going wrong but everytime i run this code it gives me an Run time Error 3706: Provider Could not be Found. I have checked Activex Data Object 2.8 Reference.

Sub a()
Dim cn As Object
Dim rs As Object
Dim strFile As String
Dim strCon As String
Dim strSQL As String
Dim s As String
Dim i As Integer, j As Integer

''Access database

strFile = "Application.Thisworkbook.path\Database.accdb"

strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strFile & ";"

Set cn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")

cn.Open strCon

'Rough idea
intMonth = Sheet1.[H2]
intYear = Sheet1.[H3]


strSQL = "SELECT * " _
       & "FROM qryMonthlyValuesSingleLine " _
       & "WHERE [Enter Month Name] = " & intMonth _
       & " AND WHERE [Enter Year Name] = " & intYear
       
rs.Open strSQL, cn, 3, 3

Worksheets("Sheet2").Cells(2, 1).CopyFromRecordset rs

''Tidy up
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub