这段代码有问题吗？有更好的方法吗？请告诉！！

Do
  tl_huohao = jh.Fields(0)
  kc.Find "huohao='" & Trim(tl_huohao) & "'"
  Text1.Text = jh.Fields(0)
  If kc.EOF Then
     kc.AddNew
     kc.Fields(0) = jh.Fields(0)
     kc.Fields(1) = jh.Fields(1)
     kc.Fields(2) = jh.Fields(2)
     kc.Fields(3) = jh.Fields(3)
     kc.Fields(4) = jh.Fields(4)
     kc.Fields(5) = jh.Fields(5)
     kc.Fields(6) = jh.Fields(6)
     kc.Fields(7) = jh.Fields(7)
     kc.Fields(8) = jh.Fields(8)
     kc.Fields(9) = jh.Fields(9)
     kc.Fields(10) = jh.Fields(10)
     kc.Fields(11) = jh.Fields(11)
     kc.Fields(12) = jh.Fields(12)
     kc.Fields(13) = jh.Fields(13)
     kc.Fields(14) = jh.Fields(14)
     kc.Update
     kc.MoveFirst
  End If
  jh.MoveNext
Loop Until jh.EOF