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

[alnasciment 0]

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