[Resolvido]Parametro Insulficiente

Pessoal
Bom Dia

Estou com uma duvida que é a seguinte.
Tenho uma banco de dados, e estou desenvolvendo a parte de segurança das telas.

estou usando o seguinte codigo:

Private Sub Form_Open(Cancel As Integer)
DoCmd.Close acForm, "INICIAL"
Dim DB As DAO.Database
Dim DB2 As DAO.Database
Dim Rs1 As DAO.Recordset
Dim Rs2 As DAO.Recordset
Set DB = CurrentDb()
Set DB2 = CurrentDb()

Set Rs1 = DB.OpenRecordset("SELECT * from TblUsuarioAtual")
Me.txtPermissao.Value = Rs1("UsuarioAtual")
usuario = Me.txtPermissao.Value

Set Rs2 = DB2.OpenRecordset("select cadcidodm-cidodm from tblusuarios where tblusuarios.apelido = "" & usuario & """)
Acesso = Rs2("tblusuarios")

Rs1.Close

End Sub


Porem esta dando erro na seguinte linha:
Set Rs2 = DB2.OpenRecordset("select cadcidodm-cidodm from tblusuarios where tblusuarios.apelido = "" & usuario & """)


o erro é o seguinte:

Erro em tempo de execução "3061"
"Parâmetros insulficientes.Eram Esperados 2"

Se alguem puder me ajudar!

Desde ja agradeço!

Substitua e teste;

Set Rs2 = CurrentDb.OpenRecordset("select [cadcidodm-cidodm] from tblusuarios where tblusuarios.apelido = '" & usuario & "'")

Consegui aqui da seguinte maneira:

Private Sub Form_Open(Cancel As Integer)
DoCmd.Close acForm, "INICIAL"
Dim DB As DAO.Database
Dim DB2 As DAO.Database
Dim Rs1 As DAO.Recordset
Dim Rs2 As DAO.Recordset
Set DB = CurrentDb()
Set DB2 = CurrentDb()

Set Rs1 = DB.OpenRecordset("SELECT * from TblUsuarioAtual")
Me.txtPermissao.Value = Rs1("UsuarioAtual")
usuario = Me.txtPermissao.Value

Set Rs2 = DB2.OpenRecordset("select * from tblusuarios where tblusuarios.Apelido = '" & usuario & "'")
Acesso = Rs2("cadcidodm-cidodm")


estava faltando aspas simpes...hehe

de qualquer forma muito obrigado Jpaulo

Reparei nisso mesmo e na istrução que lhe mandei acima, coloquei as aspas simples que faltavam, rsrsrsrs

Valew