Access - error 3051 en tiempo de ejecucion

Dim RS As dao.Recordset

usuario = NetUser()

If usuario = "nombre1" Then


DoCmd.OpenForm "administrador", , , stLinkCriteria



Else:


Set RS = CurrentDb.OpenRecordset("SELECT nombre FROM EMPLEADOS WHERE nombre=usuario;")

If RS.EOF Then
DoCmd.OpenForm "empleados1", , , stLinkCriteria

end if
end if

cuando hace el Set RS = CurrentDb.OpenRecordset("SELECT nombre FROM EMPLEADOS WHERE nombre=usuario;")

me da error 3051 en tiempo de ejecucion
Pocos parámetros. Se esperaba 1.

que puede estar pasando?

No sé si lo tienes así, pero si lo has copiado directamente, quita los dos puntos detras de else

no ese no es el problema ya que he probado

usuario = NetUser()


Set RS = CurrentDb.OpenRecordset("SELECT nombre FROM EMPLEADOS WHERE nombre=usuario;")

y me sigue dando el error

Hola!

Hay dos posibilidades:

1) Error de sintaxis en el recordset. Yo te sugiero que lo digites así

Set RS = CurrentDb.OpenRecordset("SELECT nombre FROM EMPLEADOS WHERE nombre='" & usuario & "'")

2) En la tabla Empleados no existe un campo llamado nombre.

Ese error da cuando el recordset no encuentra el campo que se define en Select o Where.

Espero se solucione el problema.

Tu error esta en que al terminar nombre=usuario; este es tu error no debe de llevar ese ; punto y coma que le pones, ademas de que debes de checar que usuario si es string debe de ir encerrado en comillas simples