[Sniper.ps]

السلام عليكم ورحمة الله وبركاته

أخي الكريم تفضل المثال في المرفقات .. ولأنني أستخدم Visual Studio 2013 .. الكود المستخدم هو

كود :

Imports System.Data.OleDb
Public Class Form1
    Dim CnString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & Application.StartupPath & "\sniper.mdb"
    Dim Con As New OleDbConnection(CnString)
    Dim DataSet1 As New DataSet
    Dim DataAdapter1 As OleDbDataAdapter
    Dim CMD As New OleDbCommand
    
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        DataAdapter1 = New OleDbDataAdapter("Select Distinct(StrNames1) From Table1", Con)
        DataSet1.Clear()
        DataAdapter1.Fill(DataSet1, "Table1")
        ListBox1.DataSource = DataSet1.Tables(0)
        ListBox1.DisplayMember = "StrNames1"
    End Sub
End Class

وفقك الله