Database connection error

[learnasugo]

I get an error: Provider cannot be found. It may not be properly installed. Error Number : 3706. Please assist.
My code:

Code:

Public Function ConnectAccess (dbName)  
    On Error Resume Next

    Dim con

    Set con = CreateObject("ADODB.Connection")
    With con
        .ConnectionTimeout = 60
        .Open "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & dbName & ";Persist Security Info=False;"

        Set ConnectAccess = con
        Set con = Nothing
    End With
End Function