Pesquisar na Comunidade

Oii Galera, estou com um problema no sistema de uma empresa que damos suporte, bom quando eu entro com um codigo ele te que trazer uns seguinte campo preenchidos so que assim que eu coloco numero do plano 2 (pois é um sistema hospitalar) ele me traz a seguinte tela e com o seguinte erro , " Run time error '3265' O item não pode ser encontrado na coleção correspondente ao nome ou ao ordinal solicitado" e eu andei pesquisando vi que esse erro pode acontecer atraves do ADODB, so que já olhei a função varias vezes e não consigo achar o erro, por favor podem me ajudar! Function Fl_Verifica_Permissao(cSistema As String, nSq_Grupo As Integer) As Boolean Dim rs_modulo As New ADODB.Recordset Dim nMdi, nInd, nInd2 As Integer nMdi = Trim(Mdi.Controls.Count - 1) 'Desabilta todos os ítens da MDI com exceção dos separadores For nInd = 0 To nMdi 'Desabilita o menu If TypeOf Mdi.Controls(nInd) Is Menu Then If UCase(Trim(Mdi.Controls(nInd).Tag)) <> "" Then Mdi.Controls(nInd).Enabled = False End If End If 'Desabilita a barra de ferramentas If TypeOf Mdi.Controls(nInd) Is Toolbar Then For nInd2 = 1 To Mdi.barraferramentas.Buttons.Count If UCase(Trim(Mdi.barraferramentas.Buttons.Item(nInd2).Tag)) <> "" Then Mdi.barraferramentas.Buttons.Item(nInd2).Enabled = False End If Next nInd2 End If Next nInd 'Acha o nome dos módulos para efetuar as habiltações csel = "SELECT M.nm_modulo " csel = csel + "FROM tb_modulo M, tb_acesso A " csel = csel + " where M.sq_modulo = A.sq_modulo AND " csel = csel + " M.id_sistema = A.id_sistema AND " csel = csel + " A.id_sistema = '" + UCase(Trim(cId_Sistema)) + "' AND " csel = csel + " A.sq_grupo = " + Trim(nSq_Grupo) + "" Set rs_modulo = BaseDados_db.Execute(csel) If rs_modulo.RecordCount = 0 Then Beep MsgBox "", vbOKOnly + vbExclamation, "Atenção" Fl_Verifica_Permissao = False Exit Function Else Do While Not rs_modulo.EOF For nInd = 0 To nMdi 'Habilita o menu If TypeOf Mdi.Controls(nInd) Is Menu Then If UCase(Trim(Mdi.Controls(nInd).Tag)) = UCase(Trim(rs_modulo!nm_modulo)) Then Mdi.Controls(nInd).Enabled = True End If End If 'Habilita a barra de ferramentas If TypeOf Mdi.Controls(nInd) Is Toolbar Then For nInd2 = 1 To Mdi.barraferramentas.Buttons.Count If UCase(Trim(Mdi.barraferramentas.Buttons.Item(nInd2).Tag)) = UCase(Trim(rs_modulo!nm_modulo)) Then Mdi.barraferramentas.Buttons.Item(nInd2).Enabled = True End If Next nInd2 End If Next rs_modulo.MoveNext Loop End If Fl_Verifica_Permissao = True Exit Function End Function