Записать картинку в БД
da.InsertCommand = New OleDb.OleDbCommand("INSERT INTO WSys (Поле1, Поле2) VALUES (0, @Поле2)", cn)
da.InsertCommand.Parameters.Add("@Поле2", OleDb.OleDbType.VarBinary, Obj.Length).Value = Obj
da.InsertCommand.ExecuteNonQuery()