«Многошаговая операция сгенерировала ошибки» в программе VB6

Question

Private Sub Form_Load()    
    Call CreateRecordset
    Call konekcija("SERVER")

    Set rsPJ = New ADODB.Recordset
    With rsPJ
        .ActiveConnection = aconnection
        .CursorLocation = adUseClient
        .Open "select * from mppj"
    End With

    rsPJ.MoveFirst

    For i = 0 To rsPJ.RecordCount - 1
        With rsLocalPJ    
            .AddNew
            .Fields("ID") = rsPJ.Fields("ID").Value
            .Fields("Naziv") = rsPJ.Fields("Naziv").Value  ' <== error occurs here
            .Update
        End With    
        rsPJ.MoveNext
    Next i

    Call ZatvoriKon

    rsLocalPJ.MoveFirst

    For i = 0 To rsLocalPJ.RecordCount - 1
        Combo2.AddItem ("" & rsLocalPJ.Fields(0).Value & "  " & rsLocalPJ.Fields(1).Value & "")
        rsLocalPJ.MoveNext
    Next i

    datum1 = Format$(CDate("01.01." & Year(Date)), "dd.mm.yyyy")
    datum2 = Format$(CDate(Day(Date) & "." & Month(Date) & "." & Year(Date)), "dd.mm.yyyy")

    MaskEdBox1.Text = datum1
    MaskEdBox2.Text = datum2 
End Sub

Изображение ошибки:

Многошаговые операции вызвали ошибки. Проверьте каждое значение состояния

Когда я нажимаю на отладку, я получаю эту строку