Convertendo um field em um object

[Scandoleiro 0]

Estou com um probleminha,estou fazendo a seleção de um registro e atribuido o valor do recordset em uma variavél do tipo Objeto, para que possa acessar as propriedades deste objeto, porém ocorre este erro "Run-time error '439'Object doesn't support this property or method"Olha só como construi a funçãoPublic Function LiberaMenu(strUsuario As String, strSenha As String, strModulo As String)Dim STRSQL As StringDim I As IntegerDim strPerm As StringDim objMenu As Object STRSQL = "SELECT US_APLICACAO " STRSQL = STRSQL & " FROM GERAL.CAD_USUARIO " STRSQL = STRSQL & " WHERE US_USUARIO ='" & strUsuario & "' AND" STRSQL = STRSQL & " US_SENHA ='" & strSenha & "' AND" STRSQL = STRSQL & " US_MODULO ='" & strModulo & "'" Set ss = db.CreateSnapshot(STRSQL, 64) If ss.RecordCount > 0 Then ss.MoveLast ss.MoveFirst STRSQL = "SELECT MN_NOMENU " STRSQL = STRSQL & " FROM GERAL.CAD_MENUS " STRSQL = STRSQL & " WHERE MN_MODULO ='" & strModulo & "' " STRSQL = STRSQL & " ORDER BY MN_CODIGO" Set PRD = db.CreateSnapshot(STRSQL, 64) If PRD.RecordCount > 0 Then PRD.MoveLast PRD.MoveFirst For I = 1 To PRD.RecordCount strPerm = Mid(ss("US_APLICACAO"), I, 1) Set objMenu = PRD("MN_NOMENU") If UCase(strPerm) = "S" Then objMenu.Enabled = True '----> linha do erro Else objMenu.Enabled = False '----> linha do erro End If PRD.MoveNext Next End If End If End Functionno PRD("MN_NOMENU") o registro é "mn_cadastro"se coloco Set objMenu = mn_cadastro A rotina executa normalmenteComo posso atribuir o valor do recordset como sendo um Object?Existe alguma conversão de fileld para Object?

[Luizgrs 0]

Não há como você pegar o objeto com o nome no formato texto e controlá-lo dessa maneira.O que você pode fazer é uma verificação do que está escrito e então modificar o objecto normalmente.