[سعود]

PHP كود :

Public Class Form1
    Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=" & CurDir() & "\db.accdb"
    Dim dt As DataTable
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        ListBox1.Items.Clear()
        Using con As New OleDb.OleDbConnection(str)
            Using cm As New OleDb.OleDbCommand("", con)
                cm.CommandText = "select * from tb"
                If con.State = ConnectionState.Closed Then con.Open()
                dt = New DataTable
                dt.Load(cm.ExecuteReader)
                If con.State = ConnectionState.Open Then con.Close()
            End Using
        End Using
        For i As Integer = 0 To dt.Rows.Count - 1
            Dim t As String = dt(i)(1).ToString
            If Mid(t, Len(t), 1) = TextBox1.Text Then
                ListBox1.Items.Add(t)
            End If
        Next
    End Sub
End Class