برجاء المساعدة

السلام عليكم أعضاء منتدي فيجوال بيسك لكل العرب الكرام
عندي مشكلة وهي انني لدي مشروع برنامج معمل تحاليل مصمم بفيجوال بيسك ولكن عند تحويله لملف exe تظهر رسالة خطأ ولا أدري كيفية تصحيح هذا الخطأ 
Public Sub OpenDB()
Set Cn = New ADODB.Connection
Cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=mitproject;Data Source=server"

Cn.Open
End Sub
ومرفق نسخة المشروع
مع جزيل الشكر