cSQL = "INSERT INTO Test(PhoTo) VALUES(@ImgData) "
Dim uComm As New SqlClient.SqlCommand(cSQL, nConnect)
Dim MeM As System.IO.MemoryStream = New System.IO.MemoryStream
PictureBox1.Image.Save(MeM, System.Drawing.Imaging.ImageFormat.Jpeg)
Dim bytBLOBData As Byte() = MeM.GetBuffer()
uComm.Parameters.Add(New SqlClient.SqlParameter("@ImgData", SqlDbType.VarBinary)).Value = bytBLOBData