Не подключается БД Access на Windows 7 x64

connection = New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" + FileName)
connection.Open()

    Public Function СоздатьПодключение(ByVal FileName As String) As OleDbConnection
 
        Dim connection As OleDbConnection = Nothing
 
        Try
            'Для Access 14.0 
            connection = New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.14.0; Data Source=" + FileName)
            connection.Open()
 
        Catch ex14 As Exception
            Try
                'Для Access 12.0 
                connection = New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" + FileName)
                connection.Open()
 
            Catch ex12 As Exception
                Try
                    'Для более ранних версий 
                    connection = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + FileName)
                    connection.Open()
 
                Catch ex11 As Exception
                    MsgBox("Неизвестная версия Access или файл имеет неизвестный формат!", MsgBoxStyle.Exclamation)
                    Return Nothing : Exit Function
                End Try
            End Try
 
        End Try
 
        Return connection
    End Function

connection = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + FileName)

connection = New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & FileName & ";User ID=Admin;Password=;")