01.Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
02. Dim index As Integer = ListBox1.SelectedIndex
03. Me.BindingContext(dataset, "Employee").Position = index
04. ShowPicture(index)
05. End Sub
06. Private Sub ShowPicture(ByVal index As Integer)
07. Dim Sql As String = "SELECT Picture FROM Employee"
08. Dim cmd As New OleDbCommand(Sql, connect)
09. Dim adapter As New OleDbDataAdapter(cmd)
10. Dim data As New DataSet
11. adapter.Fill(dataset, "Employee")
12. Dim imgByte() As Byte = dataset.Tables("Employee").Rows(index)("Picture")
13. Dim imgstremam As New MemoryStream(imgByte)
14. PictureBox2.Image = Image.FromStream(imgstremam)
15. End Sub
