Set param = cmd.CreateParameter("titulo", adVarChar, adParamInput, 200, valor) cmd.Parameters.Append(param)