Почему в ВБ 6.0 делать абдэйт данных из БД в две разные таблицы последовательно как показоно ниже:

1)
Set cmd.ActiveConnection = cn
cmd.CommandText = "UPDATE Lei SET Income_in_Lei=? WHERE MainID=?"
cmd.CommandType = adCmdText
cmd.Prepared = True
Set p1 = cmd.CreateParameter("Income_in_Lei", adVarWChar, adParamInput, Len(dIncome), dIncome)
cmd.Parameters.Append p1
Set p4 = cmd.CreateParameter("MainID", adVarWChar, adParamInput, Len(Trim(Str(nMainID))), Trim(Str(nMainID)))
cmd.Parameters.Append p4
cmd.Execute

2)
Set cmd.ActiveConnection = cn
cmd.CommandText = "UPDATE Lei SET Income_in_Dol=? WHERE MainID=?"
cmd.CommandType = adCmdText
cmd.Prepared = True
Set p1 = cmd.CreateParameter("Income_in_Dol", adVarWChar, adParamInput, Len(dIncome), dIncome)
cmd.Parameters.Append p1
Set p4 = cmd.CreateParameter("MainID", adVarWChar, adParamInput, Len(Trim(Str(nMainID))), Trim(Str(nMainID)))
cmd.Parameters.Append p4
cmd.Execute

Первый без проблем - все впорядке, а второй дает ошибку типа:
"Multiple-step OLE DB peration enerated error. Check each OLE DB tatus value, if avalable. No work was done."

Что неправельно я делаю? подскажите кто знает.