Hiroshi,
IT WORKS!!! Thanks a million.
When understand a little more what I am doing, I guess I should write a
mini-faq.
Sam
>Please try
>Set rs = conSource.OpenRecordset("Select * From data2", dbOpenDynaset, _
> dbExecDirect, dbOptimisticValue)
>and never forget to set the DefaultCursorDriver property.
>
>regards,
>Hiroshi Inoue