[AccessD] CreateObject ("Access.Application") is not working

hit send before I had finished typing

I have a function that I cannot seem to get to create an instance of
> microsoft access even though it is installed on my machine I am getting
> error 429 which is "ActiveX component can't create object". I do have
> references set to both DAO and Microsoft Access 14.0 but I think that is
> irrelevant
>
>
> Public Function GetDB(strLoc As String) As Object
> Dim Ac As Object
> Dim GetDBEngine As Object
> Dim strName As String
> On Error Resume Next
> Set Ac = GetObject(, "Access.Application")
> If Ac Is Nothing Then
>     Set Ac = CreateObject("Access.Application")
> End If
>
> If Ac Is Nothing Then
>
         Msgbox "Acnnot open Microsoft Access",vbexclamation

>      Exit Function
> End if
>
> Set GetDBEngine = CreateObject("DAO.DBEngine.120")
> If Err.Number <> 0 Then 'try 36
>   Err.Clear
>   Set GetDBEngine = CreateObject("DAO.DBEngine.36")
>   If Err.Number <> 0 Then
>     Set GetDBEngine = CreateObject("DAO.DBEngine.35")
>   End If
> End If
> If Not GetDBEngine Is Nothing Then
>     Set GetDB = GetDBEngine.Workspaces(0).OpenDatabase(strLoc)
> End If
> End Function
>