[Resolvido] controle de acesso-parte final

não consegui alguem que me ajude a solucionar o problema nessa sub que retorna erro no sublinhado.

Private Sub MDIForm_Load()
i = 1 'efeito deslizante
MnuCalculadora.Enabled = False
MnuDesconectar.Enabled = True
MnuOficina1.Enabled = False
MnuOficina2.Enabled = False
MnuOrcamento.Enabled = False
MnuRecepçao.Enabled = False
MnuProtocolo.Enabled = False
MnuBackup.Enabled = False
MnuCadUsuarios.Enabled = False
Set rsTemp = CreateObject("ADODB.Recordset")
With rsTemp

 .Open "select a.aplicacao, b.acessos from aplicacoes a, Acesso b where a.cod_aplicacao = b.cod_aplicacao " _
 & "and b.cod_usuario[u]=" & codigo[/u], cnn, adOpenKeyset, adLockOptimistic
 If .RecordCount = 0 Then
 MsgBox "Usuário sem acesso ao sistema!", vbExclamation, "Erro"
 Else
 Do While Not .EOF
 If rsTemp("Aplicacao") = "Calculadora" And rsTemp("Acessos") = 1 Then
 MnuCalculadora.Enabled = True
 End If
 If rsTemp("Aplicacao") = "Oficina1" And rsTemp("Acessos") = 1 Then
 MnuOficina1.Enabled = True
 End If
 If rsTemp("Aplicacao") = "Oficina2" And rsTemp("Acessos") = 1 Then
 MnuOficina2.Enabled = True
 End If
 If rsTemp("Aplicacao") = "Orcamento" And rsTemp("Acessos") = 1 Then
 MnuOrcamento.Enabled = True
 End If
 If rsTemp("Aplicacao") = "Recepçao" And rsTemp("Acessos") = 1 Then
 MnuRecepçao.Enabled = True
 End If
 If rsTemp("Aplicacao") = "Protocolo" And rsTemp("Acessos") = 1 Then
 MnuProtocolo.Enabled = True
 End If
 If rsTemp("Aplicacao") = "Backup" And rsTemp("Acessos") = 1 Then
 MnuBackup.Enabled = True
 End If
 If rsTemp("Aplicacao") = "CadUsuarios" And rsTemp("Acessos") = 1 Then
 MnuCadUsuarios.Enabled = True
 End If
 .MoveNext
 Loop
 End If
 .Close
 End With

End Sub
já entrei em outros furuns e nada, já pedi pra programadores amigos meus e nada, tentei entrar em contato com luciano correa que é quem postou o projeto no IMaster e não consegui então se alguem puder ajudar agradeço.

Sistema de controle de acesso de Luciano Correa