title: Display a picture from MS Access database
body: <p>Good Day! I am currently building a student management information system in VB.Net with Access Database. All Things are working perfectly except this one:</p>
  
  <p>Displaying an Image of the current logged in user from it's Picture column.</p>
  
  <p>All text fields are displaying all the values assigned in my database depending on the current user logged in. Here is my code for displaying the user's info:</p>
  
  <pre><code>Dim cn As New OleDbConnection("Provider=Microsoft.Ace.Oledb.12.0; Data Source=" &amp; My.Application.Info.DirectoryPath.ToString() &amp; "\Data\Db\Faculty.mdb;")
      Dim dr1 As OleDbDataReader
      Dim com As New OleDbCommand
  
  
      com.CommandText = "select [Username],[Fname],[Lname],[Mname],[NickName],[Birthday],[Adds],[City],[CounPC],[Gender],[Religion],[Citizenship],[Contact],[stats],[Fathername],[Mothername],[FMAddress],[CollCourse],[VocCourse],[ElemEd],[ElemGrad],[HighEd],[HighGrad],[CollegeEd],[CollegeGrad],[VocationalCourse],[Skills],[Company],[Company1],[Position],[Position1],[YrStart],[YrStart1] from Personal where Username = '" &amp; mainForm.TSUname.Text &amp; "'"
      com.Connection = cn
      If cn.State = ConnectionState.Closed Then cn.Open()
  
      ' Username
      Dim Username As OleDbParameter = New OleDbParameter("@Username", OleDbType.VarWChar, 50)
      Username.Value = mainForm.TSUname.Text.ToString
      com.Parameters.Add(Username)
  
      dr1 = com.ExecuteReader
      If dr1.Read Then
          If dr1(1) = My.Settings.CurrentUserName.ToString Then
              ' Personal Information
              tbFname.Text = dr1(1)
              tbLname.Text = dr1(2)
              tbMname.Text = dr1(3)
              lblNickname.Text = dr1(4) &amp; "!"
              tbBday.Text = dr1(5)
              tbAdd.Text = dr1(6)
              tbCity.Text = dr1(7)
              tbCountry.Text = dr1(8)
              tbGender.Text = dr1(9)
              tbReligion.Text = dr1(10)
              tbCitizenship.Text = dr1(11)
              tbContact.Text = dr1(12)
              tbStatus.Text = dr1(13)
              ' Parents
              tbFather.Text = dr1(14)
              tbMother.Text = dr1(15)
              tbAddress.Text = dr1(16)
              'Educational Background
              tbCollCourse.Text = dr1(17)
              tbVocCourse.Text = dr1(18)
              tbElemEd.Text = dr1(19)
              tbElemGrad.Text = dr1(20)
              tbHSEd.Text = dr1(21)
              tbHSGrad.Text = dr1(22)
              tbCollED.Text = dr1(23)
              tbColGrad.Text = dr1(24)
              tbVocational.Text = dr1(25)
              tbSkill.Text = dr1(26)
              ' Employment Background
              tbCompany.Text = dr1(27)
              tbCompany1.Text = dr1(28)
              tbPosition.Text = dr1(29)
              tbPosition1.Text = dr1(30)
              tbStart.Text = dr1(31)
              tbStart1.Text = dr1(32)
          Else
              MessageBox.Show("Incorrect Input", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
          End If
      Else
          MessageBox.Show("UserID is Wrong", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
      End If
  </code></pre>
  
  <p>I want to put the user's picture too in my <code>PictureBox</code>. But how? Any help would be greatly appreciated. Thanks!</p>