[سعود]

اخي الكريم قلت لك تعامل معه وكانه كومبو مستقلة ونت كتبت الحل .. فين المشكلة؟

---

كود :

Public Class Form2
    Dim con As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=|datadirectory|\db.accdb")
    Dim dt As New DataTable
    Dim cm As New OleDb.OleDbCommand("select tn from tb", con)
    Dim dr As OleDb.OleDbDataReader
    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        If con.State = ConnectionState.Closed Then
            con.Open()
        End If
        dr = cm.ExecuteReader
        If dr.HasRows Then
            Do While dr.Read
                tn.Items.Add(dr(0))
            Loop
            dr.Close()
        End If
    End Sub
End Class

هذا كلاس الفورم الثاني ويعمل بشكل جيد

---

لاحظت شي وهو انك كتبت الاكواد ضمن شرط انفتاح الاتصال

كود :

If Con.State = ConnectionState.Open Then

يعني لو ان الاتصال مغلق لن يعمل شيء يفترض ان يكون التحقق من الاتصال لايحتضن اوامر اخرى يعني كما كتبت لك يكون هكذا

كود :

If con.State = ConnectionState.Closed Then
            con.Open()
        End If

وبعد جملة الشرط هذه تكتب ماتريد من اجراءات