aUserData es un vector y el parámetro que defines es de tipo Binary es decir, un stream, por eso el error.
No entendí qué es lo que quieres meter en ese campo, digo, se que los valores del arreglo, pero eso no es un dato binario.
Lo "normal" seria hacer algo como esto:
Set stmStream = CreateObject("ADODB.Stream")
stmStream.Type = adTypeBinary
stmStream.Open
stmStream.LoadFromFile "ruta/nombreDeUnArchivo"
rs.Fields("CampoBinario").Value = stmStream.Read
rs.Update
o algo así:
Set stmStream = CreateObject("ADODB.Stream")
stmStream.Type = adTypeBinary
stmStream.Open
stmStream.LoadFromFile "ruta/nombreDeUnArchivo"
archivo = strIn.Read(adReadAll)
Set param = com.CreateParameter("aUserData", adVarBinary, adParamInput,
LenB(archivo),archivo)
com.Parameters.Append param
http://www.google.com.mx/search?aq=f...&q=adVarBinary