Atualizar uma tabela puxando dados de outra tabela com condição

Pessoal, estou tentando atualizar o campo class_fiscal da tabela custitem onde tento fazer uma busca na tabela import e trazer apenas o campo clas_datas.

Preciso puxar da tabela import o campo clas_datas para a tabela custitem, porem na tabela custitem ja tenho cadastrado o codigo e descrição preciso buscar na tabela import e trazer a classificação  referente a este codigo ja cadastrado, porem conforme abaixo ele executa apenas o primeiro registro, e não atualiza os demais.

o que esta errado ?

Set Custitem = vgDb(QualDb("DADOS")).OpenRecordSet("Custitem", dbOpenTable)

Set Import = vgDb(QualDb("DADOS")).OpenRecordSet("Import", dbOpenTable)

'Processos pré-definidos

	 Set Custitem = vgDb(QualDb("DADOS")).OpenRecordSet("SELECT * FROM Custitem WHERE Coditem = '" & Import!Cod_import & "' ORDER BY Coditem", dbOpenDynaset)

	 If Custitem.RecordCount > 0 Then

	  Custitem.MoveFirst

	  vgNVez = 0

	  Do While Not Custitem.EOF

	   If Not PTab(Import, "DADOS.Cod_import", Custitem!Coditem) Then

	    MsgBox "Import não cadastrado", vbCritical, vgAtencao

	    Error 65524

	   End If

	   Custitem.Edit

	   Custitem!Class_fiscal = (Import!Clas_datas)

	   Custitem.Update

	   Custitem.BookMark = Custitem.LastModified

	   Custitem.MoveNext

	  Loop

	 End If

	 CommitTrans                                      

	 GoTo SaiDaSub