[Abdelazez.Ahmad]

(02-09-17, 01:33 AM)سعود كتب : شي طبيعي اخي لانك ربطتها بالمصدر واي شيء يطرا على المصدر يقع على الاداة المربوطة.

كود :

Public Class Form1
   Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\db.accdb"
   Dim con As OleDb.OleDbConnection
   Dim dt As DataTable
   Dim da As OleDb.OleDbDataAdapter
   Private Sub gd()
       con = New OleDb.OleDbConnection(str)
       dt = New DataTable
       da = New OleDb.OleDbDataAdapter("select * from tb", con)
       da.Fill(dt)
   End Sub
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       gd()
   End Sub
   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       ListBox1.Items.Clear()
       For r = 0 To dt.Rows.Count - 1
           ListBox1.Items.Add(dt(r)(1))
       Next
   End Sub
   Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
       dt.Clear()
   End Sub
End Class

جرب الكود

السلام عليكم ورحمة الله وبركاته
جزاك الله خيرا أخي الكريم سعود جاري التنفيذ والتحقق