عندي برنامج بالـ ADO المشكلة أني أريد عمل إتصال بقاعدة بيانات لكن عندما أشغل البرنامج يجيني خطأ كما هو بالصورة أسفل . وهذا هو الكود الذي استخدمته في البرنامج
وهو في Module
Global DA As ADODB.Connection Private Sub main() Set DA = New ADODB.Connection DA.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = app.path &'datt.mdb';Jet OLEDB:database password=password " midiform1.Show End Sub

