[ناجي إبراهيم]

السلام عليكم...

الخطأ هو أنه لا يتم إنشاء كائن الـ Connection. لديك حلان:

1. إما أن تصرح عنه بكلمة New:
Dim db As New ADODB.Connection

2. و إما أن تنشئه بجملة Set في بداية الإجراء conn:
Set db = New ADODB.Connection

نرجو الاستفادة و السلام.