با سلام مجددنقل قول:
و تشكر فراوان از آقا محمد و آقاي بيگي كه با حوصله پاسخ دادند. من كدها رو امتحان كردم.
كد آقاي بيگي كه در پست 218 هست در اين خط:
Dim rst As New ADODB.Recordset
ارور داد كه:
User Defined Type not defined
احتمالاً كد درست هست و ارور مربوط به تفاوت نسخه 2003 با 2007 ميشه.
ولي كد محمد آقا (پست 219) با موفقيت كار كرد و مشكلم حل شد.
متشكرم