Set cmd  = CreateCommand("_opr_unicval_list")
     Set prm1 = cmd.CreateParameter("id_objtp" , adInteger, adParamInput,  , NULL)
     Set prm2 = cmd.CreateParameter("lbl_objtp", adVarChar, adParamInput, 20 , vid( 1 ))  
     cmd.Parameters.Append prm1
     cmd.Parameters.Append prm2
     SET unic = cmd.Execute 

unic.AddNew

ADODB.Recordset error '800a0cb3'
Current Recordset does not support updating. This may be a limitation of the provider, or of the selected locktype. 

Set cnct = CreateObject("ADODB.Connection")
cnct.errors.Clear
conect_prm = "DATABASE=" & CStr(DBName) & ";DSN=" &C Str(DSNName)
cnct.Open conect_prm, login, pass

  cnct.CursorLocation =  3