[Adrees]

بعد اذن اخوي ابوعمر تفضل وغير مايلزم

كود :

   Private Sub btnLoad_Click(sender As Object, e As EventArgs) Handles btnLoad.Click
       Dim da As New OleDbDataAdapter("Select * from UsersTb", cn)
       Dim dt As New DataTable
       da.Fill(dt)
       For Each item As DataRow In dt.Rows
           ListBox1.Items.Add(item(1))

       Next
   End Sub