_ServerCNN.Open()
            Try
                Using cmd = New System.Data.OleDb.OleDbCommand(SQLstr, _
                  _ServerCNN)
                    Dim Blob As System.Data.OleDb.OleDbParameter = New _
                    System.Data.OleDb.OleDbParameter("@Binary", _
                    System.Data.OleDb.OleDbType.Binary)
                    Blob.Value = binary
                    cmd.Parameters.Add(Blob)
                    If DirectCast(cmd.ExecuteNonQuery(), Integer) > 0 Then
                        result = True
                    End If
                End Using
            Catch ex As Exception
                frmError.lastSQL = SQLstr
                frmError.myEx = ex
                If frmError.ShowDialog() = Windows.Forms.DialogResult.Cancel _
                  Then
                    Application.Exit()
                End If
            End Try
            _ServerCNN.Close()