غلط في كود عرض البيانات

السلام عليكم

       Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\mm.mdb;")
        Dim sql As String = "select * from vocablary"
        Dim da As New OleDbDataAdapter(sql, con)
        Dim ds As New DataSet
        ds.Clear()
        da.Fill(ds)
        Me.ListBox1.DataSource = ds.Tables(0)
        Me.ListBox1.DisplayMember = "id"
    End Sub

بسم الله

السلام عليكم

طريقة أخي وليد ، بإستخدام البيئة الغير متصلة ، هي الأفضل بلا شك ، لأنها الأكثر استخداما ، ولكني لا أجيد التعامل إلا بطريقة البيئة المتصلة ، فأرفقت مع الرد حل هذه المشكلة بإستخدام البيئة المتصلة ، لتصبح الطريقتان معك

والله أعلى وأعلم

LISTBOX.RAR