Private Sub Load_Faculty()
Dim con As New OleDbConnection
Dim cmd As New OleDbCommand
Dim dr As OleDbDataReader
Dim arrImage() As Byte
Dim myMS As New IO.MemoryStream
Dim sSQL As String = String.Empty
Try
sSQL = "SELECT b.FacultyID, b.Image, b.Course, a.Course"