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

[Ankur]

Check ConnectionStrings to verify whether your are entering correct data for database connectivity.

[learnasugo]

The connection settings should be fine because this used to work on my old machine. I only started getting this error when I tried working with the same programs on a new machine. Any suggestions?

[Ankur]

Looks like you are missing a component on this machine. Check this.