do while dr.read()
    读取符合记录的值
    写入另一个表A中
loop

在A中写入的值都是一样的，好像DR没有逐条读取一样。而是只读了第一条。请问怎样解决这个问题？？？

dim count as int16=0
...
do while dr.read()
读取符合记录的值
写入另一个表A中
count=count+1
loop
if count=0 then
msgbox"not found yet!"
end if

这可能是你while循环里的错误，你把代码贴出来让我们看一下啊

不需要像二樓說的做.

一樓貼出的循環沒錯.可就不知循環中的代碼是否有錯.

建義把循環內的代碼貼出來.