[سعود]

انا مستغرب من الاخ "سلامات"  ما علق على مشاركتي بالموضوع مع اني ارى ان الانسب ماقلته له.
شوف الملف المرفق ملف dll به ثلاث دوال 1-تعيد جملة اتصال لملف قاعدة على محرك E  باسم db.accdb
2-واسم الجدول
3- واسم العمود

اضفها كـ Reference 
ثم ضع الكود التالي باي حدث وليكن حدث النقر لزر الامر

كود :

       Dim mcon As New MyCon.Class1
       Using con As New OleDb.OleDbConnection(mcon.constr)
           If con.State = ConnectionState.Closed Then
               con.Open()
           End If
           Using cmd As New OleDb.OleDbCommand("select * from " & mcon.tablename & "", con)
               Using dr As OleDb.OleDbDataReader = cmd.ExecuteReader
                   Do While dr.Read
                       ListBox1.Items.Add(dr(1))
                   Loop
               End Using
           End Using
       End Using

أرجو ان يكون هذا المثال هو المطلوب.
حفظكم الله جميعا.