myCommand.Parameters.AddWithValue("?User", "")
myCommand.Parameters.AddWithValue("?Name", "")
myCommand.Parameters.AddWithValue("?Description", "")
myCommand.Parameters.AddWithValue("?Email", "")
myCommand.Parameters.AddWithValue("?Contact", "")
myCommand.Parameters.AddWithValue("?Icon", "")
'
Suchtabelle = "user_info"
'
SQL = "INSERT INTO " & Suchdatenbank & "." & Suchtabelle & " (User, Full_name," & _
  "Description, Email, Contact_information, Icon)" & _
"VALUES (?User, ?Name, ?Description, ?Email, ?Contact, ?Icon)"
'
myCommand.CommandText = SQL
myCommand.Parameters.Item("?User").Value = TextBox2.Text
myCommand.Parameters.Item("?Name").Value = TextBox9.Text
myCommand.Parameters.Item("?Description").Value = TextBox8.Text
myCommand.Parameters.Item("?Email").Value = TextBox7.Text
myCommand.Parameters.Item("?Contact").Value = TextBox6.Text
If Not PictureBox1.Image Is Nothing Then
   Dim ms As New IO.MemoryStream
   PictureBox1.Image.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)
   Dim bytes() As Byte = ms.ToArray()
   myCommand.Parameters.Item("?Icon").Value = bytes
End If
'
myCommand.ExecuteNonQuery()