ADODB.Command Duda Procedure

[Lebennin]

Buenas a todos,

despues de tanto tiempo vuelvo a estar por aquí, y mas que nada es pq no consigo entender bien el objeto command y dejar de una vez el recordset. No quiero utilizar procedimientos almacenados del propio SQL Server pero si quiero crearlos "dinamicamente", en fin, me gustaría que echaran un ojo a mi código y me dijesen que coño estoy haciendo mal (que algo seguro que estoy haciendo). El error que me da es el siguiente:

ADODB.Parameters error '800a0e7c'
Parameter object is improperly defined. Inconsistent or incomplete information was provided.

Y el código es el siguiente:

Código:

'Función para buscar el nombre del usuario conectado.
	
	'Crea el objeto Command;utilizamos la propiedad ActiveConnection para adjuntar la conexión al objeto oConn
	Set cmdUser = Server.CreateObject("ADODB.Command")
	Set cmdUser.ActiveConnection = oConn
	
	With cmdUser
		'Definimos la consulta SQL
		.CommandText = "SELECT (Usu_Txt_Nombre & ' ' & Usu_Txt_Apellido1) AS Nombre " & _
						"FROM Rrhh_Usuarios " & _
						"WHERE Usu_Int_IdUsuario = @IdUsuario"
	
		'Guardamos una versión preparada de la consulta especificada en la propiedad CommandText antes de la primera ejecución
		.Prepared = True
		'Definimos los parámetros
		.Parameters.Append .CreateParameter("@IdUsuario",adInteger,,4,UserID)
	End With
	
	Set RecUser = cmdUser.Execute
	MostrarConectado = RecUser("Nombre")