实例DataBase上的错误 - 企业库

Question

我尝试在我的公司编译遗留一个程序，但实际上数据库...得到这个错误：

This is my code

尝试获取Database，key＆＃34;＆＃34;

类型的实例时发生激活错误

Exeption

请帮帮我

这是代码。

Private Function getUserInfoCode(ByVal user As String) As Dictionary(Of String, String) Implements IDataAccessLayer.getUserInfoCode
    Dim ds As DataSet = Nothing
    Dim db = EnterpriseLibraryContainer.Current.GetInstance(Of EntLibData.Database)()
    ds = db.ExecuteDataSet("IDV_AUTH.IDV_TRAER_USU", user.ToUpper)
    Dim datos As New Dictionary(Of String, String)
    For Each usu As DataRow In ds.Tables(0).Rows

        datos.Add("USUARIO", usu.Item("USU_USUARIO").ToString())
        datos.Add("INTENTOS", usu.Item("USU_INT_INGRESO").ToString())
        datos.Add("ESTADO", usu.Item("USU_ESTADO").ToString())

    Next

    Return datos
End Function